From 12ddec8b8c33157c0d7751a73c7404d2465c0e4d Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 26 Feb 2014 07:54:01 +0200
Subject: [PATCH] Fix pure for AForm #672

---
 yesod-form/Yesod/Form/Types.hs | 2 +-
 yesod-form/yesod-form.cabal    | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/yesod-form/Yesod/Form/Types.hs b/yesod-form/Yesod/Form/Types.hs
index f5a75008..a5800efb 100644
--- a/yesod-form/Yesod/Form/Types.hs
+++ b/yesod-form/Yesod/Form/Types.hs
@@ -98,7 +98,7 @@ instance Monad m => Functor (AForm m) where
       where
         go (w, x, y, z) = (fmap f w, x, y, z)
 instance Monad m => Applicative (AForm m) where
-    pure x = AForm $ const $ const $ \ints -> return (FormSuccess x, mempty, ints, mempty)
+    pure x = AForm $ const $ const $ \ints -> return (FormSuccess x, id, ints, mempty)
     (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'
diff --git a/yesod-form/yesod-form.cabal b/yesod-form/yesod-form.cabal
index 8665c89f..98fc12c9 100644
--- a/yesod-form/yesod-form.cabal
+++ b/yesod-form/yesod-form.cabal
@@ -1,5 +1,5 @@
 name:            yesod-form
-version:         1.3.5.1
+version:         1.3.5.2
 license:         MIT
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>