Add IO interface for autotimestamping

metrix-ai · Mar 1, 2018 · 690422e · 690422e
1 parent dc5cdbc
commit 690422e
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 4 deletions.
diff --git a/eternity-timestamped.cabal b/eternity-timestamped.cabal
@@ -1,7 +1,7 @@
 name:
   eternity-timestamped
 version:
-  0.2.1
+  0.2.2
 synopsis:
   Automatic timestamping for Eternity
 category:
@@ -40,6 +40,7 @@ library
     Haskell2010
   exposed-modules:
     Eternity.Timestamped.Data
+    Eternity.Timestamped.IO
     Eternity.Timestamped.Foldl
     Eternity.Timestamped.Potoki.Consume
     Eternity.Timestamped.Potoki.Produce

diff --git a/library/Eternity/Timestamped/IO.hs b/library/Eternity/Timestamped/IO.hs
@@ -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)
diff --git a/library/Eternity/Timestamped/Potoki/Transform.hs b/library/Eternity/Timestamped/Potoki/Transform.hs
@@ -4,6 +4,7 @@ where
 import Eternity.Timestamped.Prelude
 import Eternity.Timestamped.Data
 import Potoki.Transform
+import qualified Eternity.Timestamped.IO as A
 
 
 {-|
@@ -18,6 +19,4 @@ E.g., you can apply it to 'Eternity.Timestamped.Potoki.Consume.writeToDir':
 -}
 timestamp :: Transform event (Timestamped event)
 timestamp =
-  mapInIO $ \ event -> do
-    posixTime <- getPOSIXTime
-    return (Timestamped (posixTimeTimestamp posixTime) event)
+  mapInIO A.timestamp