Added a Response instance

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

View File

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

View File

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