We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 3fde693 commit 64a38c6Copy full SHA for 64a38c6
rollbar-yesod/src/Rollbar/Yesod.hs
@@ -17,6 +17,7 @@ module Rollbar.Yesod
17
18
import qualified Network.Wai as W
19
20
+import Control.Concurrent (forkIO)
21
import Control.Exception (Exception(..), SomeException)
22
import Control.Monad (unless, void)
23
import Rollbar.Client
@@ -40,7 +41,7 @@ rollbarYesodMiddleware
40
41
=> m a
42
-> m a
43
rollbarYesodMiddleware = rollbarYesodMiddlewareWith $ \settings request ex ->
- rollbarOnExceptionWith handler settings (Just request) ex
44
+ rollbarOnExceptionWith (void . forkIO) handler settings (Just request) ex
45
where
46
handler item = void $ createItem item { itemFramework = Just "yesod" }
47
0 commit comments