haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Golf around on identifyForm :).

Browse Source
This commit is contained in:
Felipe Lessa 2014-03-12 11:32:46 -03:00
parent 3d2253d5d3
commit 969496b9f1
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
yesod-form/Yesod/Form/Functions.hs
View File

@ -324,10 +324,7 @@ identifyForm identVal form = \fragment -> do
-- Check if we got its value back. -- Check if we got its value back.
mp <- askParams mp <- askParams
let missing = let missing = (mp >>= Map.lookup identifyFormKey) /= Just [identVal]
case mp of
Just params -> Map.lookup identifyFormKey params /= Just [identVal]
Nothing -> True
-- Run the form proper (with our hidden <input>). If the -- Run the form proper (with our hidden <input>). If the
-- data is missing, then do not provide any params to the -- data is missing, then do not provide any params to the