haskore-realtime 0.1 → 0.1.1
raw patch · 2 files changed
+16/−12 lines, 2 filesdep ~basedep ~directorydep ~event-listPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependency ranges changed: base, directory, event-list, haskore, non-negative, old-time, transformers
API changes (from Hackage documentation)
- Haskore.Interface.CSound.Play: play :: (Output out) => T out -> T -> IO ()
+ Haskore.Interface.CSound.Play: play :: Output out => T out -> T -> IO ()
- Haskore.Interface.CSound.Play: playNamedPipe :: (Output out) => (String, String) -> FilePath -> Name -> T out -> T -> IO ()
+ Haskore.Interface.CSound.Play: playNamedPipe :: Output out => (String, String) -> FilePath -> Name -> T out -> T -> IO ()
- Haskore.Interface.CSound.Play: playV4 :: (Output out) => FilePath -> (Name, T out, T) -> IO ()
+ Haskore.Interface.CSound.Play: playV4 :: Output out => FilePath -> (Name, T out, T) -> IO ()
- Haskore.Interface.CSound.Play: playV4AnonymousPipe :: (Output out) => FilePath -> (Name, T, T out) -> IO ()
+ Haskore.Interface.CSound.Play: playV4AnonymousPipe :: Output out => FilePath -> (Name, T, T out) -> IO ()
- Haskore.Interface.CSound.Play: playV4NamedPipe :: (Output out) => FilePath -> (Name, T, T out) -> IO ()
+ Haskore.Interface.CSound.Play: playV4NamedPipe :: Output out => FilePath -> (Name, T, T out) -> IO ()
- Haskore.Interface.CSound.Play: playV5 :: (Output out) => FilePath -> (Name, T out, T) -> IO ()
+ Haskore.Interface.CSound.Play: playV5 :: Output out => FilePath -> (Name, T out, T) -> IO ()
- Haskore.Interface.CSound.Play: playV5NamedPipe :: (Output out) => FilePath -> (Name, T, T out) -> IO ()
+ Haskore.Interface.CSound.Play: playV5NamedPipe :: Output out => FilePath -> (Name, T, T out) -> IO ()
- Haskore.RealTime.EventList.TimeBody: collectCoincident :: (C time) => T time body -> T time [body]
+ Haskore.RealTime.EventList.TimeBody: collectCoincident :: C time => T time body -> T time [body]
- Haskore.RealTime.EventList.TimeBody: decreaseStart :: (C time) => time -> T time body -> T time body
+ Haskore.RealTime.EventList.TimeBody: decreaseStart :: C time => time -> T time body -> T time body
- Haskore.RealTime.EventList.TimeBody: delay :: (C time) => time -> T time body -> T time body
+ Haskore.RealTime.EventList.TimeBody: delay :: C time => time -> T time body -> T time body
- Haskore.RealTime.EventList.TimeBody: flatten :: (C time) => T time [body] -> T time body
+ Haskore.RealTime.EventList.TimeBody: flatten :: C time => T time [body] -> T time body
- Haskore.RealTime.EventList.TimeBody: mapBodyM :: (Monad m) => (body0 -> m body1) -> T time body0 -> m (T time body1)
+ Haskore.RealTime.EventList.TimeBody: mapBodyM :: Monad m => (body0 -> m body1) -> T time body0 -> m (T time body1)
- Haskore.RealTime.EventList.TimeBody: mapCoincident :: (C time) => ([a] -> [b]) -> T time a -> T time b
+ Haskore.RealTime.EventList.TimeBody: mapCoincident :: C time => ([a] -> [b]) -> T time a -> T time b
- Haskore.RealTime.EventList.TimeBody: mapM :: (Monad m) => (time0 -> m time1) -> (body0 -> m body1) -> T time0 body0 -> m (T time1 body1)
+ Haskore.RealTime.EventList.TimeBody: mapM :: Monad m => (time0 -> m time1) -> (body0 -> m body1) -> T time0 body0 -> m (T time1 body1)
- Haskore.RealTime.EventList.TimeBody: mapM_ :: (Monad m) => (time -> m ()) -> (body -> m ()) -> T time body -> m ()
+ Haskore.RealTime.EventList.TimeBody: mapM_ :: Monad m => (time -> m ()) -> (body -> m ()) -> T time body -> m ()
- Haskore.RealTime.EventList.TimeBody: partition :: (Num time) => (body -> Bool) -> T time body -> (T time body, T time body)
+ Haskore.RealTime.EventList.TimeBody: partition :: Num time => (body -> Bool) -> T time body -> (T time body, T time body)
- Haskore.RealTime.EventList.TimeBody: runRelativeCore :: (Monad m) => T m -> (body -> m a) -> T Integer body -> m [a]
+ Haskore.RealTime.EventList.TimeBody: runRelativeCore :: Monad m => T m -> (body -> m a) -> T Integer body -> m [a]
- Haskore.RealTime.EventList.TimeBody: toAbsoluteEventList :: (Num time) => time -> T time body -> T time body
+ Haskore.RealTime.EventList.TimeBody: toAbsoluteEventList :: Num time => time -> T time body -> T time body
- Haskore.RealTime.EventList.TimeTime: append :: (C time) => T time body -> T time body -> T time body
+ Haskore.RealTime.EventList.TimeTime: append :: C time => T time body -> T time body -> T time body
- Haskore.RealTime.EventList.TimeTime: catMaybes :: (Num time) => T time (Maybe body) -> T time body
+ Haskore.RealTime.EventList.TimeTime: catMaybes :: Num time => T time (Maybe body) -> T time body
- Haskore.RealTime.EventList.TimeTime: collectCoincident :: (C time) => T time body -> T time [body]
+ Haskore.RealTime.EventList.TimeTime: collectCoincident :: C time => T time body -> T time [body]
- Haskore.RealTime.EventList.TimeTime: concat :: (C time) => [T time body] -> T time body
+ Haskore.RealTime.EventList.TimeTime: concat :: C time => [T time body] -> T time body
- Haskore.RealTime.EventList.TimeTime: concatNaive :: (C time) => [T time body] -> T time body
+ Haskore.RealTime.EventList.TimeTime: concatNaive :: C time => [T time body] -> T time body
- Haskore.RealTime.EventList.TimeTime: decreaseStart :: (C time) => time -> T time body -> T time body
+ Haskore.RealTime.EventList.TimeTime: decreaseStart :: C time => time -> T time body -> T time body
- Haskore.RealTime.EventList.TimeTime: delay :: (C time) => time -> T time body -> T time body
+ Haskore.RealTime.EventList.TimeTime: delay :: C time => time -> T time body -> T time body
- Haskore.RealTime.EventList.TimeTime: filter :: (Num time) => (body -> Bool) -> T time body -> T time body
+ Haskore.RealTime.EventList.TimeTime: filter :: Num time => (body -> Bool) -> T time body -> T time body
- Haskore.RealTime.EventList.TimeTime: flatten :: (Num time) => T time [body] -> T time body
+ Haskore.RealTime.EventList.TimeTime: flatten :: Num time => T time [body] -> T time body
- Haskore.RealTime.EventList.TimeTime: mapCoincident :: (C time) => ([a] -> [b]) -> T time a -> T time b
+ Haskore.RealTime.EventList.TimeTime: mapCoincident :: C time => ([a] -> [b]) -> T time a -> T time b
- Haskore.RealTime.EventList.TimeTime: mapM :: (Monad m) => (time0 -> m time1) -> (body0 -> m body1) -> T time0 body0 -> m (T time1 body1)
+ Haskore.RealTime.EventList.TimeTime: mapM :: Monad m => (time0 -> m time1) -> (body0 -> m body1) -> T time0 body0 -> m (T time1 body1)
- Haskore.RealTime.EventList.TimeTime: mapM_ :: (Monad m) => (time -> m ()) -> (body -> m ()) -> T time body -> m ()
+ Haskore.RealTime.EventList.TimeTime: mapM_ :: Monad m => (time -> m ()) -> (body -> m ()) -> T time body -> m ()
- Haskore.RealTime.EventList.TimeTime: toAbsoluteEventList :: (Num time) => time -> T time body -> T time body
+ Haskore.RealTime.EventList.TimeTime: toAbsoluteEventList :: Num time => time -> T time body -> T time body
- Haskore.RealTime.Timer: clockTimeToSeconds :: (Fractional time) => ClockTime -> time
+ Haskore.RealTime.Timer: clockTimeToSeconds :: Fractional time => ClockTime -> time
- Haskore.RealTime.Timer: getTime :: (Monad m) => T m -> m Integer
+ Haskore.RealTime.Timer: getTime :: Monad m => T m -> m Integer
- Haskore.RealTime.Timer: liftIO :: (MonadIO io) => T IO -> T io
+ Haskore.RealTime.Timer: liftIO :: MonadIO io => T IO -> T io
- Haskore.RealTime.Timer: wait :: (Monad m) => T m -> Integer -> m ()
+ Haskore.RealTime.Timer: wait :: Monad m => T m -> Integer -> m ()
- Haskore.RealTime.Timer: waitUntil :: (Monad m) => T m -> Integer -> m ()
+ Haskore.RealTime.Timer: waitUntil :: Monad m => T m -> Integer -> m ()
- Haskore.RealTime.Timer.Immediate: timer :: (Monad m) => T m
+ Haskore.RealTime.Timer.Immediate: timer :: Monad m => T m
Files
- haskore-realtime.cabal +12/−9
- src/Haskore/RealTime/Timer.hs +4/−3
haskore-realtime.cabal view
@@ -1,5 +1,5 @@ Name: haskore-realtime-Version: 0.1+Version: 0.1.1 License: GPL License-File: LICENSE Author: Henning Thielemann <haskell@henning-thielemann.de>@@ -20,31 +20,34 @@ Source-Repository head type: darcs- location: http://darcs.haskell.org/haskore-realtime/+ location: http://code.haskell.org/haskore/revised/realtime/ Source-Repository this type: darcs- location: http://darcs.haskell.org/haskore-realtime/- tag: 0.1+ location: http://code.haskell.org/haskore/revised/realtime/+ tag: 0.1.1 Flag splitBase description: Choose the new smaller, split-up base package. Library Build-Depends:- haskore >=0.1 && <0.2,+ haskore >=0.1 && <0.3, midi >=0.1.1 && <0.2, bytestring >=0.9 && <1.0, -- dependency on non-negative for Haddock- non-negative >=0.0.1 && <0.1,- event-list >=0.0.6 && <0.1,+ non-negative >=0.0.1 && <0.2,+ event-list >=0.0.6 && <0.2, data-accessor >=0.2 && <0.3, unix >= 2.0 && <3,- transformers >=0.0 && <0.2+ transformers >=0.2 && <0.3 If flag(splitBase) Build-Depends:- base >= 3, process >= 1.0 && < 1.1, old-time >= 1.0, directory >= 1.0+ directory >=1.0 && <1.1,+ old-time >=1.0 && <1.1,+ process >=1.0 && <1.1,+ base >=3 && <5 Else Build-Depends: base >= 1.0 && < 2
src/Haskore/RealTime/Timer.hs view
@@ -3,7 +3,8 @@ import System.Time (ClockTime(TOD)) import Control.Monad (liftM, replicateM_, ) -import qualified Control.Monad.Trans as Trans+import qualified Control.Monad.Trans.Class as Trans+import qualified Control.Monad.IO.Class as MIO import qualified Numeric.NonNegative.Wrapper as NonNeg -- import Numeric.NonNegative.Class ((-|))@@ -18,8 +19,8 @@ lift :: (Trans.MonadTrans t, Monad m) => T m -> T (t m) lift (Cons g w r) = Cons (Trans.lift g) (Trans.lift . w) r -liftIO :: Trans.MonadIO io => T IO -> T io-liftIO (Cons g w r) = Cons (Trans.liftIO g) (Trans.liftIO . w) r+liftIO :: MIO.MonadIO io => T IO -> T io+liftIO (Cons g w r) = Cons (MIO.liftIO g) (MIO.liftIO . w) r getTime :: (Monad m) => T m -> m Integer