diff --git a/Yesod/Handler.hs b/Yesod/Handler.hs index 1e0f233a..ff7b99b4 100644 --- a/Yesod/Handler.hs +++ b/Yesod/Handler.hs @@ -49,7 +49,6 @@ module Yesod.Handler , sendFile , sendResponse , sendResponseStatus - , sendResponseCreated -- * Setting headers , setCookie , deleteCookie @@ -416,13 +415,6 @@ sendResponseStatus :: HasReps c => W.Status -> c -> GHandler s m a sendResponseStatus s = GHandler . lift . throwMEither . HCContent s . chooseRep --- | Send a 201 "Created" response with the given route as the Location --- response header. -sendResponseCreated :: Route m -> GHandler s m a -sendResponseCreated url = do - r <- getUrlRender - GHandler $ lift $ throwMEither $ HCCreated $ r url - -- | Return a 404 not found page. Also denotes no handler available. notFound :: Failure ErrorResponse m => m a notFound = failure NotFound diff --git a/yesod.cabal b/yesod.cabal index 16099fd9..09509ed1 100644 --- a/yesod.cabal +++ b/yesod.cabal @@ -33,7 +33,7 @@ library , wai-extra >= 0.2.4 && < 0.3 , bytestring >= 0.9.1.4 && < 0.10 , directory >= 1 && < 1.2 - , text >= 0.5 && < 0.11 + , text >= 0.5 && < 0.12 , template-haskell >= 2.4 && < 2.6 , web-routes-quasi >= 0.6 && < 0.7 , hamlet >= 0.5.1 && < 0.7