Add rollbar-yesod

Author: sestrella

cabal.project

@@ -2,3 +2,4 @@ packages:
   rollbar-cli/
   rollbar-client/
   rollbar-wai/
+  rollbar-yesod/

rollbar-wai/src/Rollbar/Wai.hs

@@ -19,12 +19,17 @@ import Data.Aeson
 import Network.HTTP.Types (renderQuery)
 import Rollbar.Client
 
-rollbarOnException :: Settings -> Maybe W.Request -> SomeException -> IO ()
-rollbarOnException settings mreq ex = void $ forkIO $
+rollbarOnException
+  :: MonadIO m
+  => Settings
+  -> Maybe W.Request
+  -> SomeException
+  -> m ()
+rollbarOnException settings mreq ex = void $ liftIO $ forkIO $
   runRollbar settings $ do
-    itemData <- mkData $ PayloadTrace $ Trace [] $ mkException ex
+    idata <- mkData $ PayloadTrace $ Trace [] $ mkException ex
     mdreq <- mapM mkRequest mreq
-    void $ createItem $ Item itemData { dataRequest = mdreq }
+    void $ createItem $ Item idata { dataRequest = mdreq }
 
 mkRequest :: MonadIO m => W.Request -> m Request
 mkRequest req = liftIO $ do
@@ -38,7 +43,7 @@ mkRequest req = liftIO $ do
     , requestGet = HM.fromList $ fmap toQuery $ W.queryString req
     , requestQueryStrings = T.decodeUtf8 $ renderQuery False $ W.queryString req
     , requestPost = HM.fromList $ fmap toParam params
-    , requestBody = mempty
+    , requestBody = ""
     , requestUserIp = ""
     }
   where

rollbar-yesod/.gitignore

@@ -0,0 +1,2 @@
+.stack-work/
+*~

rollbar-yesod/ChangeLog.md

@@ -0,0 +1,3 @@
+# Changelog for rollbar-yesod
+
+## Unreleased changes

rollbar-yesod/LICENSE

@@ -0,0 +1 @@
+../LICENSE

rollbar-yesod/README.md

@@ -0,0 +1 @@
+# rollbar-yesod

rollbar-yesod/Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

rollbar-yesod/package.yaml

@@ -0,0 +1,42 @@
+name: rollbar-yesod
+version: 0.1.0
+github: "stackbuilders/rollbar-haskell"
+license: MIT
+author: "Stack Builders Inc."
+maintainer: "Sebastián Estrella <[email protected]>"
+copyright: "2020 Stack Builders Inc."
+tested-with: GHC ==8.6.5, GHC ==8.8.4, GHC ==8.10.2
+
+extra-source-files:
+  - README.md
+  - ChangeLog.md
+
+# Metadata used when publishing your package
+# synopsis:            Short description of your package
+# category:            Web
+
+description:
+  Please see the README on GitHub at
+  <https://github.com/stackbuilders/rollbar-haskell/tree/master/rollbar-yesod>
+
+dependencies:
+  - base >= 4.12 && < 5
+
+library:
+  source-dirs: src
+  dependencies:
+    - exceptions
+    - rollbar-client
+    - rollbar-wai
+    - yesod-core
+
+tests:
+  rollbar-yesod-test:
+    main:                Spec.hs
+    source-dirs:         test
+    ghc-options:
+    - -threaded
+    - -rtsopts
+    - -with-rtsopts=-N
+    dependencies:
+    - rollbar-yesod

rollbar-yesod/rollbar-yesod.cabal

@@ -0,0 +1,55 @@
+cabal-version: 1.12
+
+-- This file has been generated from package.yaml by hpack version 0.33.0.
+--
+-- see: https://github.com/sol/hpack
+--
+-- hash: 70eae7a982eea17f10d248ef08146e18198494e0bbd1de8bdc6040d9ed7396fd
+
+name:           rollbar-yesod
+version:        0.1.0
+description:    Please see the README on GitHub at <https://github.com/stackbuilders/rollbar-haskell/tree/master/rollbar-yesod>
+homepage:       https://github.com/stackbuilders/rollbar-haskell#readme
+bug-reports:    https://github.com/stackbuilders/rollbar-haskell/issues
+author:         Stack Builders Inc.
+maintainer:     Sebastián Estrella <[email protected]>
+copyright:      2020 Stack Builders Inc.
+license:        MIT
+license-file:   LICENSE
+tested-with:    GHC ==8.6.5, GHC ==8.8.4, GHC ==8.10.2
+build-type:     Simple
+extra-source-files:
+    README.md
+    ChangeLog.md
+
+source-repository head
+  type: git
+  location: https://github.com/stackbuilders/rollbar-haskell
+
+library
+  exposed-modules:
+      Rollbar.Yesod
+  other-modules:
+      Paths_rollbar_yesod
+  hs-source-dirs:
+      src
+  build-depends:
+      base >=4.12 && <5
+    , exceptions
+    , rollbar-client
+    , rollbar-wai
+    , yesod-core
+  default-language: Haskell2010
+
+test-suite rollbar-yesod-test
+  type: exitcode-stdio-1.0
+  main-is: Spec.hs
+  other-modules:
+      Paths_rollbar_yesod
+  hs-source-dirs:
+      test
+  ghc-options: -threaded -rtsopts -with-rtsopts=-N
+  build-depends:
+      base >=4.12 && <5
+    , rollbar-yesod
+  default-language: Haskell2010

rollbar-yesod/src/Rollbar/Yesod.hs

@@ -0,0 +1,30 @@
+{-# LANGUAGE FlexibleContexts #-}
+
+module Rollbar.Yesod
+  ( rollbarYesodMiddleware
+  ) where
+
+import Control.Monad
+import Control.Monad.Catch
+import Rollbar.Client
+import Rollbar.Wai (rollbarOnException)
+import Yesod.Core
+import Yesod.Core.Types (HandlerContents)
+
+rollbarYesodMiddleware
+  :: MonadCatch (HandlerFor site)
+  => Settings
+  -> HandlerFor site res
+  -> HandlerFor site res
+rollbarYesodMiddleware settings handler = handler `catch` \ex -> do
+  unless (isHandlerContents ex) $ do
+    req <- waiRequest
+    rollbarOnException settings (Just req) ex
+
+  throwM ex
+
+isHandlerContents :: SomeException -> Bool
+isHandlerContents = maybe False bar . fromException
+  where
+    bar :: HandlerContents -> Bool
+    bar = const True

rollbar-yesod/test/Spec.hs

@@ -0,0 +1,2 @@
+main :: IO ()
+main = putStrLn "Test suite not yet implemented"

stack-14.yaml

@@ -4,3 +4,4 @@ packages:
   - ./rollbar-cli
   - ./rollbar-client
   - ./rollbar-wai
+  - ./rollbar-yesod

stack.yaml

@@ -4,3 +4,4 @@ packages:
   - ./rollbar-cli
   - ./rollbar-client
   - ./rollbar-wai
+  - ./rollbar-yesod