yesod-form 1.3.5 → 1.3.5.1

raw patch · 3 files changed

+4/−4 lines, 3 files

Files

• Yesod/Form/MassInput.hs +2/−2
• Yesod/Form/Types.hs +1/−1
• yesod-form.cabal +1/−1

@@ -11,7 +11,7 @@  import Yesod.Form.Types import Yesod.Form.Functions-import Yesod.Form.Fields (boolField)+import Yesod.Form.Fields (checkBoxField) import Yesod.Core import Control.Monad.Trans.RWS (get, put, ask) import Data.Maybe (fromMaybe)@@ -97,7 +97,7 @@ <input type=hidden name=#{deleteName} value=yes> |]         _ -> do-            (_, xml2) <- aFormToForm $ areq boolField FieldSettings+            (_, xml2) <- aFormToForm $ areq checkBoxField FieldSettings                 { fsLabel = SomeMessage MsgDelete                 , fsTooltip = Nothing                 , fsName = Just deleteName

@@ -102,7 +102,7 @@     (AForm f) <*> (AForm g) = AForm $ \mr env ints -> do         (a, b, ints', c) <- f mr env ints         (x, y, ints'', z) <- g mr env ints'-        return (a <*> x, b `mappend` y, ints'', c `mappend` z)+        return (a <*> x, b . y, ints'', c `mappend` z) instance (Monad m, Monoid a) => Monoid (AForm m a) where     mempty = pure mempty     mappend a b = mappend <$> a <*> b

@@ -1,5 +1,5 @@ name:            yesod-form-version:         1.3.5+version:         1.3.5.1 license:         MIT license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>