diff --git a/Yesod/Form/Functions.hs b/Yesod/Form/Functions.hs
--- a/Yesod/Form/Functions.hs
+++ b/Yesod/Form/Functions.hs
@@ -202,7 +202,7 @@
                         FormFailure [renderMessage m langs MsgCsrfWarning]
                 _ -> res
             where (Just [t1]) === (Just t2) = TE.encodeUtf8 t1 `constTimeEq` TE.encodeUtf8 t2
-                  Nothing     === Nothing   = True   -- ^ It's important to use constTimeEq
+                  Nothing     === Nothing   = True   -- It's important to use constTimeEq
                   _           === _         = False  -- in order to avoid timing attacks.
     return ((res', xml), enctype)
 
diff --git a/Yesod/Form/Types.hs b/Yesod/Form/Types.hs
--- a/Yesod/Form/Types.hs
+++ b/Yesod/Form/Types.hs
@@ -18,6 +18,7 @@
     , Field (..)
     , FieldSettings (..)
     , FieldView (..)
+    , FieldViewFunc
     ) where
 
 import Control.Monad.Trans.RWS (RWST)
@@ -123,14 +124,17 @@
     , fvRequired :: Bool
     }
 
+type FieldViewFunc sub master a
+    = Text -- ^ ID
+   -> Text -- ^ Name
+   -> [(Text, Text)] -- ^ Attributes
+   -> Either Text a -- ^ Either (invalid text) or (legitimate result)
+   -> Bool -- ^ Required?
+   -> GWidget sub master ()
+
 data Field sub master a = Field
     { fieldParse :: [Text] -> GHandler sub master (Either (SomeMessage master) (Maybe a))
-    , fieldView :: Text -- ^ ID
-                -> Text -- ^ Name
-                -> [(Text, Text)] -- ^ Attributes
-                -> Either Text a -- ^ Either (invalid text) or (legitimate result)
-                -> Bool -- ^ Required?
-                -> GWidget sub master ()
+    , fieldView :: FieldViewFunc sub master a
     }
 
 data FormMessage = MsgInvalidInteger Text
diff --git a/yesod-form.cabal b/yesod-form.cabal
--- a/yesod-form.cabal
+++ b/yesod-form.cabal
@@ -1,5 +1,5 @@
 name:            yesod-form
-version:         1.1.4
+version:         1.1.4.1
 license:         MIT
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>