haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

text 0.11

Browse Source
This commit is contained in:
Michael Snoyman 2010-11-30 20:44:24 +02:00
parent ca1fe977c5
commit cc612db73f
2 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Yesod/Handler.hs
View File

@ -49,7 +49,6 @@ module Yesod.Handler
, sendFile , sendFile
, sendResponse , sendResponse
, sendResponseStatus , sendResponseStatus
, sendResponseCreated
-- * Setting headers -- * Setting headers
, setCookie , setCookie
, deleteCookie , deleteCookie
@ -416,13 +415,6 @@ sendResponseStatus :: HasReps c => W.Status -> c -> GHandler s m a
sendResponseStatus s = GHandler . lift . throwMEither . HCContent s sendResponseStatus s = GHandler . lift . throwMEither . HCContent s
. chooseRep . 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. -- | Return a 404 not found page. Also denotes no handler available.
notFound :: Failure ErrorResponse m => m a notFound :: Failure ErrorResponse m => m a
notFound = failure NotFound notFound = failure NotFound

2
yesod.cabal
View File

@ -33,7 +33,7 @@ library
, wai-extra >= 0.2.4 && < 0.3 , wai-extra >= 0.2.4 && < 0.3
, bytestring >= 0.9.1.4 && < 0.10 , bytestring >= 0.9.1.4 && < 0.10
, directory >= 1 && < 1.2 , directory >= 1 && < 1.2
, text >= 0.5 && < 0.11 , text >= 0.5 && < 0.12
, template-haskell >= 2.4 && < 2.6 , template-haskell >= 2.4 && < 2.6
, web-routes-quasi >= 0.6 && < 0.7 , web-routes-quasi >= 0.6 && < 0.7
, hamlet >= 0.5.1 && < 0.7 , hamlet >= 0.5.1 && < 0.7