raven-haskell 0.1.4.0 → 0.1.4.1
raw patch · 2 files changed
+19/−6 lines, 2 filesdep ~aeson
Dependency ranges changed: aeson
Files
- raven-haskell.cabal +12/−4
- src/System/Log/Raven/Types.hs +7/−2
raven-haskell.cabal view
@@ -1,8 +1,8 @@ name: raven-haskell-version: 0.1.4.0+version: 0.1.4.1 synopsis: Haskell client for Sentry logging service. -- description:-homepage: https://bitbucket.org/dpwiz/raven-haskell+homepage: https://gitlab.com/dpwiz/raven-haskell license: MIT license-file: LICENSE author: Alexander Bondarenko@@ -10,13 +10,14 @@ -- copyright: category: Logging build-type: Simple-cabal-version: >=1.8+cabal-version: >=1.10 extra-source-files: README.md library hs-source-dirs: src+ default-language: Haskell2010 ghc-options: -Wall exposed-modules: System.Log.Raven@@ -39,7 +40,12 @@ unordered-containers, uuid-types +flag tests+ manual: True+ default: False+ test-suite test+ default-language: Haskell2010 type: exitcode-stdio-1.0 main-is: Test.hs hs-source-dirs: test@@ -51,7 +57,9 @@ raven-haskell, time, unordered-containers+ if !flag(tests)+ buildable: False source-repository head type: git- location: https://bitbucket.org/dpwiz/raven-haskell+ location: https://gitlab.com/dpwiz/raven-haskell
src/System/Log/Raven/Types.hs view
@@ -12,6 +12,7 @@ import Data.Aeson (ToJSON(toJSON), Value, object, (.=)) import qualified Data.HashMap.Strict as HM import qualified Data.Text as T+import Data.String (fromString) import Data.Time.Clock (UTCTime) -- * Service settings@@ -128,8 +129,12 @@ , maybe [] (\v -> ["server_name" .= v]) $ srServerName r , if HM.null (srModules r) then [] else ["modules" .= srModules r] , if HM.null (srExtra r) then [] else ["extra" .= srExtra r]- , if HM.null (srInterfaces r) then [] else [ T.pack iface .= stuff- | (iface, stuff) <- HM.toList $ srInterfaces r]+ , if HM.null (srInterfaces r) then+ []+ else+ [ fromString iface .= stuff+ | (iface, stuff) <- HM.toList $ srInterfaces r+ ] , maybe [] (\v -> ["release" .= v]) $ srRelease r , maybe [] (\v -> ["environment" .= v]) $ srEnvironment r ]