Skip to content

Commit 64a38c6

Browse files
committed
Fix compilation errors
1 parent 3fde693 commit 64a38c6

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

rollbar-yesod/src/Rollbar/Yesod.hs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -17,6 +17,7 @@ module Rollbar.Yesod
1717

1818
import qualified Network.Wai as W
1919

20+
import Control.Concurrent (forkIO)
2021
import Control.Exception (Exception(..), SomeException)
2122
import Control.Monad (unless, void)
2223
import Rollbar.Client
@@ -40,7 +41,7 @@ rollbarYesodMiddleware
4041
=> m a
4142
-> m a
4243
rollbarYesodMiddleware = rollbarYesodMiddlewareWith $ \settings request ex ->
43-
rollbarOnExceptionWith handler settings (Just request) ex
44+
rollbarOnExceptionWith (void . forkIO) handler settings (Just request) ex
4445
where
4546
handler item = void $ createItem item { itemFramework = Just "yesod" }
4647

0 commit comments

Comments
 (0)