Form minor changes, setMessage not polymorphic

Yesod/Form.hs

@@ -8,7 +8,7 @@ module Yesod.Form
     ( -- * Data types
       GForm
     , FormResult (..)
-    , Enctype
+    , Enctype (..)
     , FormFieldSettings (..)
       -- * Type synonyms
     , Form
@@ -25,10 +25,11 @@ module Yesod.Form
     , fieldsToTable
     , fieldsToPlain
     , checkForm
-      -- * Fields
-    , module Yesod.Form.Fields
       -- * Template Haskell
     , mkToForm
+      -- * Re-exports
+    , module Yesod.Form.Fields
+    , module Yesod.Form.Class
     ) where
 
 import Yesod.Form.Core

Yesod/Handler.hs

@@ -332,8 +332,8 @@ msgKey = "_MSG"
 -- instead, it will only appear in the next request.
 --
 -- See 'getMessage'.
-setMessage :: ToHtml h => h -> GHandler sub master ()
-setMessage = setSession msgKey . L.toString . renderHtml . toHtml
+setMessage :: Html -> GHandler sub master ()
+setMessage = setSession msgKey . L.toString . renderHtml
 
 -- | Gets the message in the user's session, if available, and then clears the
 -- variable.

Yesod/Helpers/Crud.hs

@@ -17,7 +17,6 @@ import Yesod.Content
 import Yesod.Handler
 import Text.Hamlet
 import Yesod.Form
-import Yesod.Form.Class
 import Data.Monoid (mempty)
 import Language.Haskell.TH.Syntax