Commits

dp wiz committed 295e545

render field value

  • Participants
  • Parent commits 2f7e456

Comments (0)

Files changed (1)

File Layout/Bootstrap/Widgets.hs

     toHtml i = H.div ! A.class_ groupLabels $ do
                    H.label ! A.class_ "control-label" ! A.for id $ toHtml (title i)
                    H.div ! A.class_ "controls" $ do
-                       H.input ! A.type_ "text" ! A.id id ! A.name (toValue name) ! A.placeholder (toValue $ placeholder i) ! A.class_ "input-xlarge"
+                       H.input ! A.type_ "text" ! A.id id ! A.name (toValue name) ! A.placeholder (toValue $ placeholder i) ! A.class_ "input-xlarge" ! (A.value . toValue $ value i)
                        H.p ! A.class_ "help-block" $ toHtml (help i)
                where
                    name = T.toLower (title i)