eternity-timestamped 0.3 → 0.4

raw patch · 3 files changed

+3/−39 lines, 3 filesdep −foldl

Dependencies removed: foldl

Files

• eternity-timestamped.cabal +3/−5
• library/Eternity/Timestamped/Foldl.hs +0/−30
• library/Eternity/Timestamped/Prelude.hs +0/−4

@@ -1,15 +1,15 @@ name:   eternity-timestamped version:-  0.3+  0.4 synopsis:   Automatic timestamping for Eternity category:   Database, Event-sourcing, Streaming, Eternity homepage:-  https://github.com/metrix-ai/eternity-timestamped+  https://github.com/metrix-ai/eternity-timestamped  bug-reports:-  https://github.com/metrix-ai/eternity-timestamped/issues+  https://github.com/metrix-ai/eternity-timestamped/issues  author:   Nikita Volkov <nikita.y.volkov@mail.ru> maintainer:@@ -40,7 +40,6 @@     Haskell2010   exposed-modules:     Eternity.Timestamped.IO-    Eternity.Timestamped.Foldl     Eternity.Timestamped.Potoki.Consume     Eternity.Timestamped.Potoki.Produce     Eternity.Timestamped.Potoki.Transform@@ -52,7 +51,6 @@     cereal >=0.5.4 && <0.6,     directory >=1.3 && <2,     eternity >=0.1 && <0.2,-    foldl >=1.3.5 && <2,     generic-random >=1.1 && <1.2,     hashable >=1.2 && <2,     potoki >=0.11 && <0.12,

@@ -1,30 +0,0 @@-{-|-Folds on timestamped values--}-module Eternity.Timestamped.Foldl-where--import Eternity.Timestamped.Prelude hiding (maximum)-import Timestamp-import Control.Foldl---untimestamped :: Fold input output -> Fold (Timestamped input) output-untimestamped =-  premap (\ (Timestamped _ x) -> x)--filteringByUtcTime :: (UTCTime -> Bool) -> Fold (Timestamped input) output -> Fold (Timestamped input) output-filteringByUtcTime filter =-  filteringByTimestamp (filter . timestampUtcTime)--filteringByTimestamp :: (Timestamp -> Bool) -> Fold (Timestamped input) output -> Fold (Timestamped input) output-filteringByTimestamp filter =-  prefilter (\ (Timestamped ts _) -> filter ts)--inUtcTimeRange :: UTCTime -> UTCTime -> Fold (Timestamped input) output -> Fold (Timestamped input) output-inUtcTimeRange start end =-  inTimestampRange (utcTimeTimestamp start) (utcTimeTimestamp end)--inTimestampRange :: Timestamp -> Timestamp -> Fold (Timestamped input) output -> Fold (Timestamped input) output-inTimestampRange start end =-  filteringByTimestamp (\ ts -> ts >= start && ts < end)

@@ -70,10 +70,6 @@ import Text.Read as Exports (Read(..), readMaybe, readEither) import Unsafe.Coerce as Exports --- foldl---------------------------import Control.Foldl as Exports (Fold(..), FoldM(..))- -- cereal ------------------------- import Data.Serialize as Exports (Serialize)