eventuo11y 0.2.0.1 → 0.3.0.0

raw patch · 4 files changed

+48/−13 lines, 4 filesdep ~bytestringdep ~exceptionsdep ~resourcetPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: bytestring, exceptions, resourcet, time, unliftio-core, uuid

API changes (from Hackage documentation)

Files

• CHANGELOG.md +4/−0
• eventuo11y.cabal +10/−10
• src/Observe/Event.hs +1/−1
• src/Observe/Event/BackendModification.hs +33/−2

@@ -1,5 +1,9 @@ # Revision history for eventuo11y +## 0.3.0.0 -- 2022-10-03++Add single-modifier exports from BackendModification+ ## 0.2.0.0 -- 2022-10-03  Relax text upper and lower bounds

@@ -1,6 +1,6 @@ cabal-version:      3.0 name:               eventuo11y-version:            0.2.0.1+version:            0.3.0.0 synopsis:           An event-oriented observability library description:   Instrument your Haskell codebase with wide, semantically meaningful events.@@ -26,7 +26,7 @@   See "Observe.Event.Backend" for documentation on writing an   @EventBackend@. -  See [Example.hs](https://github.com/shlevy/eventuo11y/tree/v0.2.0.1/Example.hs) for an example.+  See [Example.hs](https://github.com/shlevy/eventuo11y/tree/v0.3.0.0/Example.hs) for an example.    See [eventuo11y-batteries](https://hackage.haskell.org/package/eventuo11y-batteries) for miscellaneous   framework-specific helpers.@@ -59,15 +59,15 @@    build-depends:     , aeson          ^>=2.0.2.0-    , base           >=4.14      && <4.17-    , bytestring     >=0.10.12.0 && <0.12-    , exceptions     ^>=0.10.4+    , base           >=4.14    && <4.17+    , bytestring     >=0.10    && <0.12+    , exceptions     ^>=0.10     , primitive      ^>=0.7-    , resourcet      ^>=1.2.4.3-    , text           >=1.2       && <2.1-    , time           >=1.9.3     && <1.12-    , unliftio-core  ^>=0.2.0.1-    , uuid           ^>=1.3.15+    , resourcet      ^>=1.2+    , text           >=1.2     && <2.1+    , time           >=1.9     && <1.12+    , unliftio-core  ^>=0.2+    , uuid           ^>=1.3    hs-source-dirs:   src   default-language: Haskell2010

@@ -322,4 +322,4 @@   -- | The parent event.   Event m r s f ->   EventBackend m r s-subEventBackend Event {..} = modifyEventBackend (Cons (SetAncestor $ referenceImpl impl) Nil) backend+subEventBackend Event {..} = modifyEventBackend (setAncestor $ referenceImpl impl) backend

@@ -37,11 +37,20 @@ -- or @MonadBaseControl@ if we share a base monad, or if we implemented t'Observe.Event.EventBackend's in a separate base monad -- that appears in the type of our capabilities and ensure it's liftable to both our application monad and the -- capability's base instantiation.-module Observe.Event.BackendModification where+module Observe.Event.BackendModification+  ( EventBackendModifier(..)+  , EventBackendModifiers+  , modifyEventBackend+  , -- * Simple EventBackendModifiers+    unmodified+  , silence+  , setAncestor+  , setInitialCause+  ) where  import Control.Category import Observe.Event.Backend-import Prelude hiding ((.))+import Prelude hiding (id, (.))  -- | Modify an t'Observe.Event.EventBackend', chaging its reference type from @r@ to @r'@ data EventBackendModifier r r' where@@ -123,3 +132,25 @@     }   where     backend = modifyEventBackend rest backend'++-- | A single-element 'EventBackendModifiers'+singleton :: EventBackendModifier r r' -> EventBackendModifiers r r'+singleton = flip Cons Nil++-- | An 'EventBackendModifiers' that does nothing.+unmodified :: EventBackendModifiers r r+unmodified = id++-- | An 'EventBackendModifiers' that silences events.+silence :: EventBackendModifiers r ()+silence = singleton Silence++-- | An 'EventBackendModifiers' that marks every parentless event as the child+-- of a known t'Observe.Event.Event'.+setAncestor :: r -> EventBackendModifiers r r+setAncestor = singleton . SetAncestor++-- | An 'EventBackendModifiers' that marks every causeless event as proximately caused+-- by a known t'Observe.Event.Event'.+setInitialCause :: r -> EventBackendModifiers r r+setInitialCause = singleton . SetInitialCause