From 8720fcd6efcbf3e854fa6c1fd97e0ac6009843f5 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 26 Oct 2009 07:31:07 +0200
Subject: [PATCH] Recent attempt and data-object changes

---
 TODO                   | 1 +
 Web/Restful/Handler.hs | 1 +
 restful.cabal          | 1 +
 3 files changed, 3 insertions(+)

diff --git a/TODO b/TODO
index db5eacf3..09661ca9 100644
--- a/TODO
+++ b/TODO
@@ -1,2 +1,3 @@
 HTML sitemap generation
 Remove model
+Authentication seems broken
diff --git a/Web/Restful/Handler.hs b/Web/Restful/Handler.hs
index 01c49b87..872c2323 100644
--- a/Web/Restful/Handler.hs
+++ b/Web/Restful/Handler.hs
@@ -134,6 +134,7 @@ instance Monad m => MonadRequestReader (HandlerT m) where
 
 instance Monad m => MonadAttempt (HandlerT m) where
     failure = errorResult . InternalError . show
+    wrapFailure _ = id -- We don't actually use exception types
 
 ------ Special handlers
 errorResult :: Monad m => ErrorResult -> HandlerT m a
diff --git a/restful.cabal b/restful.cabal
index 32c3084b..c7f65171 100644
--- a/restful.cabal
+++ b/restful.cabal
@@ -29,6 +29,7 @@ library
                      bytestring-class,
                      web-encodings >= 0.0.1,
                      data-object >= 0.2.0,
+                     data-object-translate,
                      yaml >= 0.2.0,
                      test-framework,
                      test-framework-quickcheck,