patrol 1.0.0.0 → 1.0.0.1

raw patch · 9 files changed

+36/−32 lines, 9 filesdep ~textPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: text

API changes (from Hackage documentation)

Files

• LICENSE.markdown +21/−0
• LICENSE.txt +0/−21
• README.markdown +4/−0
• patrol.cabal +3/−3
• source/library/Patrol/Extra/Aeson.hs +1/−1
• source/library/Patrol/Extra/List.hs +2/−2
• source/library/Patrol/Type/Dsn.hs +1/−1
• source/library/Patrol/Type/Event.hs +2/−2
• source/library/Patrol/Type/EventId.hs +2/−2

@@ -0,0 +1,21 @@+MIT License++Copyright (c) 2023 Taylor Fausak++Permission is hereby granted, free of charge, to any person obtaining a copy+of this software and associated documentation files (the "Software"), to deal+in the Software without restriction, including without limitation the rights+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell+copies of the Software, and to permit persons to whom the Software is+furnished to do so, subject to the following conditions:++The above copyright notice and this permission notice shall be included in all+copies or substantial portions of the Software.++THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE+SOFTWARE.

@@ -1,21 +0,0 @@-MIT License--Copyright (c) 2023 Taylor Fausak--Permission is hereby granted, free of charge, to any person obtaining a copy-of this software and associated documentation files (the "Software"), to deal-in the Software without restriction, including without limitation the rights-to use, copy, modify, merge, publish, distribute, sublicense, and/or sell-copies of the Software, and to permit persons to whom the Software is-furnished to do so, subject to the following conditions:--The above copyright notice and this permission notice shall be included in all-copies or substantial portions of the Software.--THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR-IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,-FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE-AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER-LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,-OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE-SOFTWARE.

@@ -1,3 +1,7 @@ # Patrol +[![Workflow](https://github.com/tfausak/patrol/actions/workflows/workflow.yaml/badge.svg)](https://github.com/tfausak/patrol/actions/workflows/workflow.yaml)+[![Hackage](https://img.shields.io/hackage/v/patrol)](https://hackage.haskell.org/package/patrol)+[![Stackage](https://www.stackage.org/package/patrol/badge/nightly?label=stackage)](https://www.stackage.org/package/patrol)+ Patrol is a Sentry SDK for Haskell.

@@ -1,14 +1,14 @@ cabal-version: 2.2  name: patrol-version: 1.0.0.0+version: 1.0.0.1 synopsis: Sentry SDK description: Patrol is a Sentry SDK.  build-type: Simple category: Exceptions extra-source-files: CHANGELOG.markdown README.markdown-license-file: LICENSE.txt+license-file: LICENSE.markdown license: MIT maintainer: Taylor Fausak @@ -31,7 +31,7 @@     , http-client >= 0.7.13 && < 0.8     , http-types >= 0.12.3 && < 0.13     , network-uri >= 2.6.4 && < 2.7-    , text >= 1.2.4 && < 1.3 || >= 2.0.1 && < 2.1+    , text >= 1.2.5 && < 1.3 || >= 2.0.1 && < 2.1     , time >= 1.9.3 && < 1.13     , uuid >= 1.3.15 && < 1.4   default-language: Haskell2010

@@ -16,5 +16,5 @@   Aeson.String string -> Text.null string   _ -> False -pair :: Aeson.ToJSON a => String -> a -> Aeson.Pair+pair :: (Aeson.ToJSON a) => String -> a -> Aeson.Pair pair = (Aeson..=) . Key.fromString

@@ -2,10 +2,10 @@  import qualified Data.Function as Function -insertAll :: Eq k => [(k, v)] -> [(k, v)] -> [(k, v)]+insertAll :: (Eq k) => [(k, v)] -> [(k, v)] -> [(k, v)] insertAll = flip $ foldr insert -insert :: Eq k => (k, v) -> [(k, v)] -> [(k, v)]+insert :: (Eq k) => (k, v) -> [(k, v)] -> [(k, v)] insert = insertBy $ Function.on (==) fst  insertBy :: (a -> a -> Bool) -> a -> [a] -> [a]

@@ -23,7 +23,7 @@   }   deriving (Eq, Show) -fromUri :: Catch.MonadThrow m => Uri.URI -> m Dsn+fromUri :: (Catch.MonadThrow m) => Uri.URI -> m Dsn fromUri uri = do   theProtocol <- maybe (Catch.throwM $ Problem.Problem "invalid scheme") pure . Text.stripSuffix (Text.singleton ':') . Text.pack $ Uri.uriScheme uri   uriAuth <- maybe (Catch.throwM $ Problem.Problem "missing authority") pure $ Uri.uriAuthority uri

@@ -129,7 +129,7 @@       version = Text.empty     } -new :: IO.MonadIO io => io Event+new :: (IO.MonadIO io) => io Event new = do   theEventId <- EventId.random   theTimestamp <- IO.liftIO Time.getCurrentTime@@ -144,7 +144,7 @@         version = Constant.sentryVersion       } -intoRequest :: Catch.MonadThrow m => Dsn.Dsn -> Event -> m Client.Request+intoRequest :: (Catch.MonadThrow m) => Dsn.Dsn -> Event -> m Client.Request intoRequest dsn event = do   theRequest <-     Client.parseUrlThrow

@@ -33,7 +33,7 @@ intoUuid :: EventId -> Uuid.UUID intoUuid (EventId uuid) = uuid -random :: IO.MonadIO io => io EventId+random :: (IO.MonadIO io) => io EventId random = IO.liftIO $ fmap fromUuid Uuid.nextRandom  intoText :: EventId -> Text.Text@@ -41,7 +41,7 @@   let (lo, hi) = Uuid.toWords64 $ intoUuid eventId    in Text.pack $ Printf.printf "%016x%016x" lo hi -fromText :: Catch.MonadThrow m => Text.Text -> m EventId+fromText :: (Catch.MonadThrow m) => Text.Text -> m EventId fromText t1 = do   let parse :: (Catch.MonadThrow n, Integral a) => Int -> Text.Text -> n (a, Text.Text)       parse size text = do