From 7f2c617f37d7742d2e40d31aeccdc58145827626 Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun Date: Wed, 12 Jul 2017 14:26:53 +0200 Subject: Add space between checkbox and label --- Main.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'Main.hs') 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 -- cgit v1.2.3