Removed ParamType

Yesod/Request.hs

@@ -29,9 +29,9 @@ module Yesod.Request
     , languages
     , parseWaiRequest
       -- * Parameter
-    , ParamType (..)
     , ParamName
     , ParamValue
+    , ParamError
 #if TEST
     , testSuite
 #endif
@@ -56,9 +56,9 @@ import Test.Framework (testGroup, Test)
 --import Test.HUnit hiding (Test)
 #endif
 
-data ParamType = GetParam | PostParam
 type ParamName = String
 type ParamValue = String
+type ParamError = String
 
 class RequestReader m where
     getRawRequest :: m RawRequest

Yesod/Response.hs

@@ -65,6 +65,7 @@ import qualified Data.Text.Lazy.Encoding as DTLE
 import Web.Encodings (formatW3)
 import qualified Network.Wai as W
 import qualified Network.Wai.Enumerator as WE
+import Yesod.Request
 
 #if TEST
 import Data.Object.Html hiding (testSuite)
@@ -192,7 +193,7 @@ data SpecialResponse =
 data ErrorResponse =
       NotFound
     | InternalError String
-    | InvalidArgs [(String, String)] -- FIXME use SomeException?
+    | InvalidArgs [(ParamName, ParamError)]
     | PermissionDenied
     deriving (Show, Eq)