From 8a09a3181e5c9c64dbdbb36459c5ec3ff59ccdfa Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Wed, 1 Oct 2014 14:47:42 +0300 Subject: [PATCH] Revert "`required' attribute for nicHtmlField (textfield tag)" This reverts commit d4175f11ccd22f33c700b9e88b63e75f977c9b06. --- 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 7e4af077..28626789 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 -