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,