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

Send 404 response properly

Browse Source
This commit is contained in:
Michael Snoyman 2010-04-11 13:05:40 -07:00
parent c181fd624e
commit 3f99bf132c
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Yesod/Yesod.hs
View File

@ -144,15 +144,14 @@ toWaiApp' y resource session env = do
types = httpAccept env
pathSegments = cleanupSegments resource
eurl = parsePathSegments site pathSegments
case eurl of
Left _ -> error "FIXME: send 404 message"
Right url -> do
rr <- parseWaiRequest env session
onRequest y rr
let render u = approot y ++ '/'
: encodePathInfo (formatPathSegments site u)
res <- handleSite site render url errorHandler rr types
responseToWaiResponse res
render u = approot y ++ '/'
: encodePathInfo (formatPathSegments site u)
rr <- parseWaiRequest env session
onRequest y rr
let ya = case eurl of
Left _ -> runHandler (errorHandler NotFound) y render
Right url -> handleSite site render url
ya errorHandler rr types >>= responseToWaiResponse
getMethod :: (String -> YesodApp y) -> YesodApp y
getMethod f eh req cts =