suzanne.soy/cover
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed extra line breaks in html output

Browse Source
This commit is contained in:
Spencer Florence 2014-12-30 13:17:19 -06:00
parent d0399c1882
commit 7159e1686c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
private/html.rkt
View File

@ -114,7 +114,7 @@
[(yes) "green"] [(yes) "green"]
[(no) "red"] [(no) "red"]
[(missing) "black"])) [(missing) "black"]))
`(div ((style ,(string-append "color:" color))) ,@body)) `(span ((style ,(string-append "color:" color))) ,@body))
(module+ test (module+ test
(define (test file out) (define (test file out)
@ -125,5 +125,5 @@
(clear-coverage!)) (clear-coverage!))
(define f (path->string (simplify-path path))) (define f (path->string (simplify-path path)))
(test f (test f
`((div ((style "color:green")) `((span ((style "color:green"))
,@(encode-string (file->string f)))))) ,@(encode-string (file->string f))))))