diff --git a/format.rkt b/format.rkt index 9a3482e..f75819f 100644 --- a/format.rkt +++ b/format.rkt @@ -1,3 +1,3 @@ #lang racket/base -(require "private/html.rkt" "private/coveralls.rkt" "private/raw.rkt") +(require "private/html/html.rkt" "private/coveralls.rkt" "private/raw.rkt") (provide generate-html-coverage generate-coveralls-coverage generate-raw-coverage) diff --git a/private/html.rkt b/private/html/html.rkt similarity index 98% rename from private/html.rkt rename to private/html/html.rkt index ff63538..d3213b0 100644 --- a/private/html.rkt +++ b/private/html/html.rkt @@ -13,14 +13,14 @@ syntax/parse unstable/sequence (only-in xml write-xexpr) - "format-utils.rkt" - "shared.rkt") + "../format-utils.rkt" + "../shared.rkt") (module+ test - (require rackunit "../cover.rkt" racket/runtime-path racket/set "file-utils.rkt") - (define-runtime-path root "..") - (define-runtime-path tests/basic/prog.rkt "../tests/basic/prog.rkt") + (require rackunit "../../cover.rkt" racket/runtime-path racket/set "../file-utils.rkt") + (define-runtime-path root "../..") + (define-runtime-path tests/basic/prog.rkt "../../tests/basic/prog.rkt") (define (mock-covered? pos) (cond [(<= 1 pos 6) 'covered] [(= 6 pos) 'missing] diff --git a/private/main.css b/private/html/main.css similarity index 100% rename from private/main.css rename to private/html/main.css diff --git a/raco.rkt b/raco.rkt index ce3783f..6de525f 100644 --- a/raco.rkt +++ b/raco.rkt @@ -106,7 +106,7 @@ (set "main.rkt" "private/coveralls.rkt" "private/contracts.rkt" - "private/html.rkt" + "private/html/html.rkt" "private/format-utils.rkt" "private/file-utils.rkt" "private/shared.rkt"