fixed extra line breaks in html output
This commit is contained in:
parent
d0399c1882
commit
7159e1686c
|
@ -114,7 +114,7 @@
|
|||
[(yes) "green"]
|
||||
[(no) "red"]
|
||||
[(missing) "black"]))
|
||||
`(div ((style ,(string-append "color:" color))) ,@body))
|
||||
`(span ((style ,(string-append "color:" color))) ,@body))
|
||||
|
||||
(module+ test
|
||||
(define (test file out)
|
||||
|
@ -125,5 +125,5 @@
|
|||
(clear-coverage!))
|
||||
(define f (path->string (simplify-path path)))
|
||||
(test f
|
||||
`((div ((style "color:green"))
|
||||
`((span ((style "color:green"))
|
||||
,@(encode-string (file->string f))))))
|
||||
|
|
Loading…
Reference in New Issue
Block a user