Commits

dp wiz committed 12c8b28

hlint code

Comments (0)

Files changed (2)

Layout/Bootstrap/Starter.hs

 
         static kind path = toValue $ T.concat [ctx "STATIC_URL", kind, "/", path]
 
-        css key = static "css" key
+        css = static "css"
         img = static "img"
         script srcURL = H.script ! src (static "js" srcURL) $ mempty
 

Layout/Bootstrap/Widgets.hs

                where
                    name = T.toLower (title i)
                    id = toValue ("id_" ++ T.unpack name)
-                   groupLabels = toValue . unwords $ ["control-group"] ++ (if errors i then ["error"] else [])
+                   groupLabels = toValue . unwords $ "control-group":(if errors i then ["error"] else [])
     {-# INLINE toHtml #-}
 
 -- | Text field with only name provided. Good to start with record overrides. Needs 'toHtml' when inserted into 'Html' tree.