`required' attribute for nicHtmlField (textfield tag)

2014-08-20 01:53:59 +02:00 · 2014-08-20 01:53:59 +02:00 · d4175f11cc
commit d4175f11cc
parent 9831220c47
1 changed files with 2 additions and 2 deletions
--- a/yesod-form/Yesod/Form/Nic.hs
+++ b/yesod-form/Yesod/Form/Nic.hs
@ -26,10 +26,10 @@ class Yesod a => YesodNic a where
 nicHtmlField :: YesodNic site => Field (HandlerT site IO) Html
 nicHtmlField = Field
    { fieldParse = \e _ -> return . Right . fmap (preEscapedToMarkup . sanitizeBalance) . listToMaybe $ e
-    , fieldView = \theId name attrs val _isReq -> do
+    , fieldView = \theId name attrs val isReq -> do
        toWidget [shamlet|
 $newline never
-    <textarea id="#{theId}" *{attrs} name="#{name}" .html>#{showVal val}
+    <textarea id="#{theId}" *{attrs} name="#{name}" :isReq:required .html>#{showVal val}
 |]
        addScript' urlNicEdit
        master <- getYesod