eventlog-live-otelcol 0.1.0.2 → 0.1.0.3

raw patch · 4 files changed

+31/−6 lines, 4 filesdep ~grapesydep ~random

Dependency ranges changed: grapesy, random

Files

• CHANGELOG.md +4/−0
• eventlog-live-otelcol.cabal +8/−5
• src/GHC/Eventlog/Live/Otelcol.hs +2/−1
• src/System/Random/Compat.hs +17/−0

@@ -1,3 +1,7 @@+### 0.1.0.3++- Support `random-1.2`+ ### 0.1.0.2  - Lower `cabal-version` constraint to `3.0`

@@ -1,6 +1,6 @@ cabal-version:   3.0 name:            eventlog-live-otelcol-version:         0.1.0.2+version:         0.1.0.3 synopsis:        Stream eventlog data to the OpenTelemetry Collector. description:   This executable supports live streaming of eventlog data into@@ -102,9 +102,12 @@ library   import:          language   hs-source-dirs:  src-  exposed-modules: GHC.Eventlog.Live.Otelcol-  other-modules:   Paths_eventlog_live_otelcol   autogen-modules: Paths_eventlog_live_otelcol+  other-modules:+    Paths_eventlog_live_otelcol+    System.Random.Compat++  exposed-modules: GHC.Eventlog.Live.Otelcol   build-depends:     , base                   >=4.16   && <4.22     , bytestring             >=0.11   && <0.13@@ -113,14 +116,14 @@     , eventlog-live:options     , eventlog-live:socket     , ghc-events             >=0.20   && <0.21-    , grapesy                >=1.1.0  && <1.2+    , grapesy                >=1.0.0  && <1.2     , hashable               >=1.4    && <1.6     , hs-opentelemetry-otlp  >=0.1.0  && <0.2     , lens-family            >=2.1.3  && <2.2     , machines               >=0.7.4  && <0.8     , optparse-applicative   >=0.19   && <0.20     , proto-lens             >=0.7.1  && <0.8-    , random                 >=1.3    && <1.4+    , random                 >=1.2    && <1.4     , text                   >=1.2    && <2.2     , unordered-containers   >=0.2.20 && <0.3 

@@ -59,7 +59,8 @@ import Proto.Opentelemetry.Proto.Trace.V1.Trace qualified as OT import Proto.Opentelemetry.Proto.Trace.V1.Trace_Fields qualified as OT import System.IO qualified as IO-import System.Random (StdGen, initStdGen, uniformByteString)+import System.Random (StdGen, initStdGen)+import System.Random.Compat (uniformByteString) import Text.Printf (printf)  {- |

@@ -0,0 +1,17 @@+{-# LANGUAGE CPP #-}++module System.Random.Compat (+  uniformByteString,+) where++#if MIN_VERSION_random(1,3,0)+import System.Random (uniformByteString)+#else+import Data.Bifunctor (Bifunctor (first))+import Data.ByteString (ByteString)+import Data.ByteString.Short (fromShort)+import System.Random (RandomGen (genShortByteString))++uniformByteString :: RandomGen g => Int -> g -> (ByteString, g)+uniformByteString n g = first fromShort (genShortByteString n g)+#endif