fixed directory creation in raw format

This commit is contained in:
Spencer Florence 2016-01-11 16:22:03 -06:00
parent 846c893b32
commit 5acbb1288e

View File

@ -1,7 +1,8 @@
#lang racket/base
(require racket/pretty "../cover.rkt")
(require racket/pretty racket/file "../cover.rkt")
(provide generate-raw-coverage)
(define (generate-raw-coverage coverage files [dir "coverage"])
(make-directory* dir)
(with-output-to-file (build-path dir "coverage.rktl")
#:exists 'replace
(lambda () (pretty-write (coverage-wrapper-map coverage)))))