Added a Response instance
This commit is contained in:
parent
a3e328ca99
commit
2b8131b29b
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user