Renamed functions for getting Wai values

Yesod/Handler.hs

@@ -23,7 +23,6 @@ module Yesod.Handler
     , getYesod
     , runHandler
     , liftIO
-    --, ToHandler (..)
       -- * Special handlers
     , redirect
     , sendFile

Yesod/Request.hs

@@ -22,7 +22,7 @@ module Yesod.Request
       -- * RawRequest
       RawRequest (..)
     , RequestReader (..)
-    , parseEnv
+    , waiRequest
     , cookies
     , getParams
     , postParams
@@ -70,9 +70,9 @@ class RequestReader m where
 languages :: (Functor m, RequestReader m) => m [Language]
 languages = rawLangs `fmap` getRawRequest
 
--- | Get the raw 'W.Env' value.
+-- | Get the raw 'W.Request' value.
-parseEnv :: (Functor m, RequestReader m) => m W.Request
+waiRequest :: (Functor m, RequestReader m) => m W.Request
-parseEnv = rawRequest `fmap` getRawRequest
+waiRequest = rawWaiRequest `fmap` getRawRequest
 
 type RequestBodyContents =
     ( [(ParamName, ParamValue)]
@@ -85,7 +85,7 @@ data RawRequest = RawRequest
     , rawCookies :: [(ParamName, ParamValue)]
     , rawSession :: [(B.ByteString, B.ByteString)]
     , rawRequestBody :: IO RequestBodyContents
-    , rawRequest :: W.Request
+    , rawWaiRequest :: W.Request
     , rawLangs :: [Language]
     }
 

Yesod/Yesod.hs

@@ -90,8 +90,10 @@ defaultErrorHandler :: Yesod y
                     => ErrorResponse
                     -> Handler y ChooseRep
 defaultErrorHandler NotFound = do
-    --rr <- getRawRequest
+    r <- waiRequest
-    applyLayout' "Not Found" $ cs $ toHtmlObject [("Not found", "FIXME")]
+    applyLayout' "Not Found" $ cs $ toHtmlObject
+        [ ("Not found", cs $ W.pathInfo r :: String)
+        ]
 defaultErrorHandler PermissionDenied =
     applyLayout' "Permission Denied" $ cs "Permission denied"
 defaultErrorHandler (InvalidArgs ia) =