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

Added ByteStringResponse and TODO list

Browse Source
This commit is contained in:
Michael Snoyman 2009-09-18 13:29:08 +03:00
parent c75c72d9cb
commit 649661e133
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
TODO Normal file
View File

@ -0,0 +1,2 @@
Static files and directories
Better error handling for invalid arguments (currently 500 error)

6
Web/Restful/Response.hs
View File

@ -31,6 +31,7 @@ module Web.Restful.Response
, liftIO , liftIO
, ErrorResult (..) , ErrorResult (..)
, HasRepsW (..) , HasRepsW (..)
, byteStringResponse
) where ) where
import Data.ByteString.Class import Data.ByteString.Class
@ -185,11 +186,16 @@ instance HasReps () where
data GenResponse = HtmlResponse String data GenResponse = HtmlResponse String
| ObjectResponse Object | ObjectResponse Object
| HtmlOrObjectResponse String Object | HtmlOrObjectResponse String Object
| ByteStringResponse ContentType B.ByteString
instance HasReps GenResponse where instance HasReps GenResponse where
reps (HtmlResponse h) = [("text/html", toLazyByteString h)] reps (HtmlResponse h) = [("text/html", toLazyByteString h)]
reps (ObjectResponse t) = reps t reps (ObjectResponse t) = reps t
reps (HtmlOrObjectResponse h t) = reps (HtmlOrObjectResponse h t) =
("text/html", toLazyByteString h) : reps t ("text/html", toLazyByteString h) : reps t
reps (ByteStringResponse ct con) = [(ct, con)]
byteStringResponse :: LazyByteString lbs => ContentType -> lbs -> GenResponse
byteStringResponse ct = ByteStringResponse ct . toLazyByteString
instance HasReps Object where instance HasReps Object where
reps o = reps o =