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

Update yesod-core/src/Yesod/Core/Class/Yesod.hs

Browse Source 
Co-authored-by: patrick brisbin <pbrisbin@gmail.com>
This commit is contained in:
Jappie Klooster 2022-07-20 15:23:29 +02:00 committed by GitHub
parent dd2ba40873
commit 69df01668a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod-core/src/Yesod/Core/Class/Yesod.hs
View File

@ -78,9 +78,9 @@ class RenderRoute site => Yesod site where
-- allows the user to specify how exceptions are cought. -- allows the user to specify how exceptions are cought.
-- by default all async exceptions are thrown and synchronous -- by default all async exceptions are thrown and synchronous
-- exceptions render a 500 page. -- exceptions render a 500 page.
-- One could override this for example to catch all exceptions -- To catch all exceptions (even async) to render a 500 page,
-- aside connection closed by peer to let yesod do more 500 page -- set this to 'UnliftIO.Exception.catchSyncOrAsync'. Beware
-- rendering (instead of warp). -- this may have negative effects with functions like 'timeout'.
catchHandlerExceptions :: MonadUnliftIO m => site -> m a -> (SomeException -> m a) -> m a catchHandlerExceptions :: MonadUnliftIO m => site -> m a -> (SomeException -> m a) -> m a
catchHandlerExceptions _ = catch catchHandlerExceptions _ = catch