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

Exposing RawParam

Browse Source
This commit is contained in:
Michael Snoyman 2009-10-07 17:49:29 +02:00
parent 1a997621e8
commit 9f399d0eea
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Web/Restful/Request.hs
View File

@ -23,6 +23,7 @@ module Web.Restful.Request
, ParamType , ParamType
, ParamName , ParamName
, ParamValue , ParamValue
, RawParam (..)
-- * RawRequest -- * RawRequest
, RawRequest (..) , RawRequest (..)
, PathInfo , PathInfo
@ -303,7 +304,7 @@ class Request a where
instance Request () where instance Request () where
parseRequest = return () parseRequest = return ()
-- | Unsures that a String parameter is not blank. -- | Ensures that a String parameter is not blank.
notBlank :: MonadRequestReader m => RawParam -> m String notBlank :: MonadRequestReader m => RawParam -> m String
notBlank rp = notBlank rp =
case paramValue rp of case paramValue rp of