haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed ParamType

Browse Source
This commit is contained in:
Michael Snoyman 2010-02-17 14:32:38 +02:00
parent 47b22ffb49
commit a0cd0b5008
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Yesod/Request.hs
View File

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

3
Yesod/Response.hs
View File

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