eventuo11y 0.1.0.0 → 0.1.0.1
raw patch · 3 files changed
+12/−5 lines, 3 filesdep ~aesonPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: aeson
API changes (from Hackage documentation)
Files
- CHANGELOG.md +4/−0
- Example.hs +5/−2
- eventuo11y.cabal +3/−3
CHANGELOG.md view
@@ -1,5 +1,9 @@ # Revision history for eventuo11y +## 0.1.0.1 -- 2022-09-30++Relax aeson lower bound+ ## 0.1.0.0 -- 2022-09-28 Initial release
Example.hs view
@@ -3,6 +3,8 @@ {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE GADTs #-} {-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE StandaloneDeriving #-}+{-# LANGUAGE TypeSynonymInstances #-} module Main where @@ -29,7 +31,8 @@ -- We take an EventBackend, polymorphic in r, supporting our domain-specific selector type writeToFile :: EventBackend IO r FileSelector -> FilePath -> ByteString -> IO ()-writeToFile backend path (BS fptr sz) = do+writeToFile backend path bs = do+ let (fptr, base_off, sz) = toForeignPtr bs -- We start an event, selected by OpenFile fd <- withEvent backend OpenFile $ \ev -> do -- We add a Filename field to our current active event@@ -50,7 +53,7 @@ newOffset <- withEvent backend WriteFile $ \ev -> do let ct = bcSz - offset addField ev $ BytesAsked ct- written <- fdWriteBuf fd (plusPtr ptr (fromIntegral offset)) ct+ written <- fdWriteBuf fd (plusPtr ptr (base_off + fromIntegral offset)) ct addField ev $ BytesActual written pure $ offset + written when (newOffset < bcSz) $
eventuo11y.cabal view
@@ -1,6 +1,6 @@ cabal-version: 3.0 name: eventuo11y-version: 0.1.0.0+version: 0.1.0.1 synopsis: An event-oriented observability library description: Instrument your Haskell codebase with wide, semantically meaningful events.@@ -26,7 +26,7 @@ See "Observe.Event.Implementation" for documentation on writing an @EventBackend@. - See [Example.hs](https://github.com/shlevy/eventuo11y/tree/v0.1.0.0/Example.hs) for an example.+ See [Example.hs](https://github.com/shlevy/eventuo11y/tree/v0.1.0.1/Example.hs) for an example. See [eventuo11y-batteries](https://hackage.haskell.org/package/eventuo11y-batteries) for miscellaneous framework-specific helpers.@@ -57,7 +57,7 @@ Observe.Event.Render.JSON build-depends:- , aeson ^>=2.0.3.0+ , aeson ^>=2.0.2.0 , base >=4.14 && <4.17 , bytestring >=0.10.12.0 && <0.12 , exceptions ^>=0.10.4