From 498d22714b6543afb91a59b5d91579c247ca73d1 Mon Sep 17 00:00:00 2001
From: Michael <michael@snoyman.com>
Date: Tue, 4 Sep 2012 17:57:05 +0300
Subject: [PATCH] checkMMod to checkMMap (#416)

---
 yesod-form/Yesod/Form/Functions.hs | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

diff --git a/yesod-form/Yesod/Form/Functions.hs b/yesod-form/Yesod/Form/Functions.hs
index f001c218..7d800033 100644
--- a/yesod-form/Yesod/Form/Functions.hs
+++ b/yesod-form/Yesod/Form/Functions.hs
@@ -33,6 +33,7 @@ module Yesod.Form.Functions
     , check
     , checkBool
     , checkM
+    , checkMMap
     , checkMMod
     , customErrorMessage
       -- * Utilities
@@ -356,20 +357,20 @@ checkM :: RenderMessage master msg
        => (a -> GHandler sub master (Either msg a))
        -> Field sub master a
        -> Field sub master a
-checkM f = checkMMod f id
+checkM f = checkMMap f id
 
 -- | Same as 'checkM', but modifies the datatype.
 --
 -- In order to make this work, you must provide a function to convert back from
 -- the new datatype to the old one (the second argument to this function).
 --
--- Since 1.1.1
-checkMMod :: RenderMessage master msg
+-- Since 1.1.2
+checkMMap :: RenderMessage master msg
           => (a -> GHandler sub master (Either msg b))
           -> (b -> a)
           -> Field sub master a
           -> Field sub master b
-checkMMod f inv field = field
+checkMMap f inv field = field
     { fieldParse = \ts -> do
         e1 <- fieldParse field ts
         case e1 of
@@ -379,6 +380,17 @@ checkMMod f inv field = field
     , fieldView = \i n a eres req -> fieldView field i n a (fmap inv eres) req
     }
 
+-- | Deprecated synonym for 'checkMMap'.
+--
+-- Since 1.1.1
+checkMMod :: RenderMessage master msg
+          => (a -> GHandler sub master (Either msg b))
+          -> (b -> a)
+          -> Field sub master a
+          -> Field sub master b
+checkMMod = checkMMap
+{-# DEPRECATED checkMMod "Please use checkMMap instead" #-}
+
 -- | Allows you to overwrite the error message on parse error.
 customErrorMessage :: SomeMessage master -> Field sub master a -> Field sub master a
 customErrorMessage msg field = field { fieldParse = \ts -> fmap (either