event-list 0.1.2.1 → 0.1.3
raw patch · 2 files changed
+13/−4 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Data.EventList.Absolute.TimeBody: traverseWithTime :: Applicative m => (time -> body0 -> m body1) -> T time body0 -> m (T time body1)
Files
event-list.cabal view
@@ -1,5 +1,5 @@ Name: event-list-Version: 0.1.2.1+Version: 0.1.3 License: GPL License-File: LICENSE Author: Henning Thielemann <haskell@henning-thielemann.de>@@ -26,7 +26,7 @@ Source-Repository this type: darcs location: http://code.haskell.org/~thielema/event-list/- tag: 0.1.2.1+ tag: 0.1.3 Flag splitBase description: Choose the new smaller, split-up base package.
src/Data/EventList/Absolute/TimeBody.hs view
@@ -13,7 +13,7 @@ getTimes, getBodies, duration, mapBody, mapTime, concatMapMonoid,- traverse, traverse_, traverseBody, traverseTime,+ traverse, traverse_, traverseBody, traverseTime, traverseWithTime, mapM, mapM_, mapBodyM, mapTimeM, merge, mergeBy, insert, insertBy, moveForward,@@ -36,8 +36,9 @@ import qualified Data.AlternatingList.List.Uniform as Uniform import qualified Data.AlternatingList.List.Mixed as Mixed -import qualified Data.List as List import qualified Data.EventList.Utility as Utility+import qualified Data.Traversable as Trav+import qualified Data.List as List import Data.Monoid (Monoid, ) @@ -130,6 +131,14 @@ traverseTime :: Applicative m => (time0 -> m time1) -> T time0 body -> m (T time1 body) traverseTime f = liftA (Disp.traverseFirst f)+++traverseWithTime :: Applicative m =>+ (time -> body0 -> m body1) -> T time body0 -> m (T time body1)+traverseWithTime f =+ fmap fromPairList .+ Trav.traverse (\(t,b) -> fmap ((,) t) (f t b)) .+ toPairList mapM :: Monad m =>