eternity-timestamped 0.2.1 → 0.2.2

raw patch · 3 files changed

+16/−4 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

+ Eternity.Timestamped.IO: timestamp :: event -> IO (Timestamped event)

Files

eternity-timestamped.cabal +2/−1
library/Eternity/Timestamped/IO.hs +12/−0
library/Eternity/Timestamped/Potoki/Transform.hs +2/−3

eternity-timestamped.cabal view

@@ -1,7 +1,7 @@ name:   eternity-timestamped version:-  0.2.1+  0.2.2 synopsis:   Automatic timestamping for Eternity category:@@ -40,6 +40,7 @@     Haskell2010   exposed-modules:     Eternity.Timestamped.Data+    Eternity.Timestamped.IO     Eternity.Timestamped.Foldl     Eternity.Timestamped.Potoki.Consume     Eternity.Timestamped.Potoki.Produce

+ library/Eternity/Timestamped/IO.hs view

@@ -0,0 +1,12 @@+module Eternity.Timestamped.IO+where++import Eternity.Timestamped.Prelude+import Eternity.Timestamped.Data+++timestamp :: event -> IO (Timestamped event)+timestamp event =+  do+    posixTime <- getPOSIXTime+    return (Timestamped (posixTimeTimestamp posixTime) event)

library/Eternity/Timestamped/Potoki/Transform.hs view

@@ -4,6 +4,7 @@ import Eternity.Timestamped.Prelude import Eternity.Timestamped.Data import Potoki.Transform+import qualified Eternity.Timestamped.IO as A   {-|@@ -18,6 +19,4 @@ -} timestamp :: Transform event (Timestamped event) timestamp =-  mapInIO $ \ event -> do-    posixTime <- getPOSIXTime-    return (Timestamped (posixTimeTimestamp posixTime) event)+  mapInIO A.timestamp