summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLars-Dominik Braun <lars@6xq.net>2017-07-12 14:26:53 +0200
committerLars-Dominik Braun <lars@6xq.net>2017-07-12 14:26:53 +0200
commit7f2c617f37d7742d2e40d31aeccdc58145827626 (patch)
tree2c663abeafe1c69027b33e4366d1125d0fefae16
parent85d56a9b1669f2fd4371412876b4cf0df45f45a2 (diff)
downloadcomatose-7f2c617f37d7742d2e40d31aeccdc58145827626.tar.gz
comatose-7f2c617f37d7742d2e40d31aeccdc58145827626.tar.bz2
comatose-7f2c617f37d7742d2e40d31aeccdc58145827626.zip
Add space between checkbox and label
-rw-r--r--Main.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/Main.hs b/Main.hs
index d03b378..1f60c3e 100644
--- a/Main.hs
+++ b/Main.hs
@@ -271,6 +271,7 @@ features db =
dl_ $ forM_ (M.toList $ getFeaturesByBase db baseident) $ \(ident, feature) -> do
dt_ [class_ "form-inline"] $ let i = T.pack ("filter-feature-" ++ ident) in do
input_ [type_ "checkbox", id_ i, class_ "filter-feature", value_ (T.pack ident)]
+ " "
label_ [for_ i] $ toHtml $ fname feature
maybe mempty (dd_ . toHtml) $ fdescription feature