diff options
| -rw-r--r-- | server/HtmlOrphans.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/server/HtmlOrphans.hs b/server/HtmlOrphans.hs index 64de2f6..aec6fe2 100644 --- a/server/HtmlOrphans.hs +++ b/server/HtmlOrphans.hs @@ -118,7 +118,7 @@ badge level = span_ [class_ badgetype] -- | Lint Levels directly render into badges instance ToHtml Level where - toHtml level = badge level (toHtml (show level :: Text)) + toHtml level = do badge level (show level); " " -- | Hints are just text with a level instance ToHtml Hint where @@ -149,7 +149,6 @@ instance ToHtml (DirResult a) where unless (null dirresultDeps) $ ul_ $ forM_ dirresultDeps $ \missing -> do li_ $ do - " " -- TODO: the whole Maybe Bool thing is annoying; I think that was a -- remnant of talking to python stuff and can probably be removed? if depFatal missing == Just True |