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

Added a Response instance

Browse Source
This commit is contained in:
Michael Snoyman 2009-08-24 21:08:57 +03:00
parent a3e328ca99
commit 2b8131b29b
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Web/Restful/Response.hs
View File

@ -1,4 +1,5 @@
{-# LANGUAGE ExistentialQuantification #-} {-# LANGUAGE ExistentialQuantification #-}
{-# LANGUAGE FlexibleInstances #-}
--------------------------------------------------------- ---------------------------------------------------------
-- --
-- Module : Web.Restful.Response -- Module : Web.Restful.Response
@ -292,3 +293,6 @@ instance Response Object where
[ ("text/html", response 200 [] $ treeToHtml tree) [ ("text/html", response 200 [] $ treeToHtml tree)
, ("application/json", response 200 [] $ treeToJson tree) , ("application/json", response 200 [] $ treeToJson tree)
] ]
instance Response [(String, Hack.Response)] where
reps = id

1
restful.cabal
View File

@ -39,6 +39,7 @@ library
Web.Restful.Definitions, Web.Restful.Definitions,
Web.Restful.Handler, Web.Restful.Handler,
Web.Restful.Application, Web.Restful.Application,
Web.Restful.Resource,
Data.Object.Instances, Data.Object.Instances,
Hack.Middleware.MethodOverride, Hack.Middleware.MethodOverride,
Web.Restful.Helpers.Auth Web.Restful.Helpers.Auth