Golf around on identifyForm :).

2014-03-12 11:32:46 -03:00 · 2014-03-12 11:32:46 -03:00 · 969496b9f1
commit 969496b9f1
parent 3d2253d5d3
1 changed files with 1 additions and 4 deletions
--- a/yesod-form/Yesod/Form/Functions.hs
+++ b/yesod-form/Yesod/Form/Functions.hs
@ -324,10 +324,7 @@ identifyForm identVal form = \fragment -> do

    -- Check if we got its value back.
    mp <- askParams
-    let missing =
-          case mp of
-            Just params -> Map.lookup identifyFormKey params /= Just [identVal]
-            Nothing     -> True
+    let missing = (mp >>= Map.lookup identifyFormKey) /= Just [identVal]

    -- Run the form proper (with our hidden <input>).  If the
    -- data is missing, then do not provide any params to the