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

Removed instance Exception ErrorResponse

Browse Source
This commit is contained in:
Michael Snoyman 2013-01-15 11:12:25 +02:00
parent f2ad6612a9
commit 91f98c480e
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-core/Yesod/Handler.hs
View File

@ -463,8 +463,8 @@ runHandler handler mrender sroute tomr master sub upload log' =
YesodApp $ \eh rr cts initSession -> do YesodApp $ \eh rr cts initSession -> do
let toErrorHandler e = let toErrorHandler e =
case fromException e of case fromException e of
Just x -> x Just (HCError x) -> x
Nothing -> InternalError $ T.pack $ show e _ -> InternalError $ T.pack $ show e
istate <- liftIO $ I.newIORef GHState istate <- liftIO $ I.newIORef GHState
{ ghsSession = initSession { ghsSession = initSession
, ghsRBC = Nothing , ghsRBC = Nothing

1
yesod-core/Yesod/Internal.hs
View File

@ -59,7 +59,6 @@ data ErrorResponse =
| PermissionDenied Text | PermissionDenied Text
| BadMethod H.Method | BadMethod H.Method
deriving (Show, Eq, Typeable) deriving (Show, Eq, Typeable)
instance Exception ErrorResponse
----- header stuff ----- header stuff
-- | Headers to be added to a 'Result'. -- | Headers to be added to a 'Result'.