From 2b8131b29bd8b84709cda497de4c21a368d27028 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 24 Aug 2009 21:08:57 +0300
Subject: [PATCH] Added a Response instance

---
 Web/Restful/Response.hs | 4 ++++
 restful.cabal           | 1 +
 2 files changed, 5 insertions(+)

diff --git a/Web/Restful/Response.hs b/Web/Restful/Response.hs
index a26027bd..c950ab86 100644
--- a/Web/Restful/Response.hs
+++ b/Web/Restful/Response.hs
@@ -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
diff --git a/restful.cabal b/restful.cabal
index 661ffd09..b8ee84d9 100644
--- a/restful.cabal
+++ b/restful.cabal
@@ -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