From d4175f11ccd22f33c700b9e88b63e75f977c9b06 Mon Sep 17 00:00:00 2001
From: Dunric <dunric29a@gmail.com>
Date: Wed, 20 Aug 2014 01:53:59 +0200
Subject: [PATCH] `required' attribute for nicHtmlField (textfield tag)

---
 yesod-form/Yesod/Form/Nic.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/yesod-form/Yesod/Form/Nic.hs b/yesod-form/Yesod/Form/Nic.hs
index 28626789..7e4af077 100644
--- 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