8 lines
252 B
Racket
8 lines
252 B
Racket
#lang racket/base
|
|
(require racket/pretty)
|
|
(provide generate-raw-coverage)
|
|
(define (generate-raw-coverage coverage [dir "coverage"])
|
|
(with-output-to-file (build-path dir "coverage.rktl")
|
|
#:exists 'replace
|
|
(lambda () (pretty-write coverage))))
|