patrol 0.0.1 → 0.0.2

raw patch · 3 files changed

+40/−10 lines, 3 filesdep ~aesondep ~basedep ~http-clientPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: aeson, base, http-client, time

API changes (from Hackage documentation)

+ Patrol: data Dsn

+ Patrol: data Event

+ Patrol: data EventId

+ Patrol: data Exception

+ Patrol: data Frame

+ Patrol: data Level

+ Patrol: data Platform

+ Patrol: data Request

+ Patrol: data Response

+ Patrol: data StackTrace

+ Patrol: data Timestamp

+ Patrol: data User

Files

patrol.cabal +10/−6
src/lib/Patrol.hs +27/−1
src/lib/Patrol/Utility/Json.hs +3/−3

patrol.cabal view

@@ -1,7 +1,7 @@-cabal-version: >= 1.10+cabal-version: 2.0  name: patrol-version: 0.0.1+version: 0.0.2 synopsis: Sentry SDK description: Patrol is a Sentry SDK. @@ -21,16 +21,16 @@ library   autogen-modules: Paths_patrol   build-depends:-    base >= 4.13.0 && < 4.16-    , aeson >= 1.4.6 && < 1.6+    base >= 4.13.0 && < 4.17+    , aeson >= 1.4.6 && < 1.6 || >= 2.0.3 && < 2.1     , bytestring >= 0.10.10 && < 0.12     , case-insensitive >= 1.2.1 && < 1.3     , containers >= 0.6.2 && < 0.7-    , http-client >= 0.6.4 && < 0.7+    , http-client >= 0.6.4 && < 0.8     , http-types >= 0.12.3 && < 0.13     , network-uri >= 2.6.2 && < 2.7     , text >= 1.2.4 && < 1.3-    , time >= 1.9.3 && < 1.10+    , time >= 1.9.3 && < 1.12     , uuid >= 1.3.13 && < 1.4   default-extensions: NamedFieldPuns   default-language: Haskell2010@@ -66,3 +66,7 @@     ghc-options:       -Wno-missing-safe-haskell-mode       -Wno-prepositive-qualified-module++  if impl(ghc >= 9.2)+    ghc-options:+      -Wno-missing-kind-signatures

src/lib/Patrol.hs view

@@ -1,2 +1,28 @@ -- | <https://develop.sentry.dev/sdk/>-module Patrol () where+module Patrol+  ( Dsn.Dsn+  , Event.Event+  , EventId.EventId+  , Exception.Exception+  , Frame.Frame+  , Level.Level+  , Platform.Platform+  , Request.Request+  , Response.Response+  , StackTrace.StackTrace+  , Timestamp.Timestamp+  , User.User+  ) where++import qualified Patrol.Type.Dsn as Dsn+import qualified Patrol.Type.Event as Event+import qualified Patrol.Type.EventId as EventId+import qualified Patrol.Type.Exception as Exception+import qualified Patrol.Type.Frame as Frame+import qualified Patrol.Type.Level as Level+import qualified Patrol.Type.Platform as Platform+import qualified Patrol.Type.Request as Request+import qualified Patrol.Type.Response as Response+import qualified Patrol.Type.StackTrace as StackTrace+import qualified Patrol.Type.Timestamp as Timestamp+import qualified Patrol.Type.User as User

src/lib/Patrol/Utility/Json.hs view

@@ -5,10 +5,10 @@  import qualified Data.Aeson as Aeson import qualified Data.Aeson.Types as Aeson-import qualified Data.Text as Text+import qualified Data.String as String  pair :: (Aeson.ToJSON value, Aeson.KeyValue pair) => String -> value -> pair-pair key value = Text.pack key Aeson..= value+pair key value = String.fromString key Aeson..= value  required :: Aeson.FromJSON value => Aeson.Object -> String -> Aeson.Parser value-required object key = object Aeson..: Text.pack key+required object key = object Aeson..: String.fromString key