reactive-midyim 0.4.1.2 → 0.4.1.3
raw patch · 3 files changed
+6/−14 lines, 3 filesdep ~basePVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependency ranges changed: base
API changes (from Hackage documentation)
- Reactive.Banana.MIDI.Time: inc :: forall a (m :: Type -> Type) t. Monoid a => T m Relative a -> T m t a -> T m t a
+ Reactive.Banana.MIDI.Time: inc :: forall a (m :: Type -> Type) t. Semigroup a => T m Relative a -> T m t a -> T m t a
Files
- reactive-midyim.cabal +3/−3
- src/Reactive/Banana/MIDI/Process.hs +0/−5
- src/Reactive/Banana/MIDI/Time.hs +3/−6
reactive-midyim.cabal view
@@ -1,5 +1,5 @@ Name: reactive-midyim-Version: 0.4.1.2+Version: 0.4.1.3 License: BSD3 License-File: LICENSE Author: Henning Thielemann <haskell@henning-thielemann.de>@@ -44,7 +44,7 @@ Source-Repository this type: darcs location: https://hub.darcs.net/thielema/reactive-midyim/- tag: 0.4.1.2+ tag: 0.4.1.3 Library Build-Depends:@@ -59,7 +59,7 @@ transformers >=0.2 && <0.7, semigroups >=0.1 && <1, random >=1 && <2,- base >=4 && <5+ base >=4.11 && <5 Default-Language: Haskell98 GHC-Options: -Wall
src/Reactive/Banana/MIDI/Process.hs view
@@ -448,11 +448,6 @@ xs <- RBF.plainChanges x fmap RB.filterJust $ flip RBU.mapAdjacent x0 (\old new -> toMaybe (new/=old) new) xs--- return xs-{-- return $ RB.filterJust $ fst $- RB.mapAccum x0 $ fmap (\new old -> (toMaybe (new/=old) new, new)) xs--} sweep ::
src/Reactive/Banana/MIDI/Time.hs view
@@ -5,7 +5,7 @@ import qualified Numeric.NonNegative.Class as NonNeg import Control.Applicative (Const(Const), )-import Data.Monoid (Monoid, mempty, mappend, )+import Data.Monoid (Monoid, mempty, ) import Data.Semigroup (Semigroup, (<>), ) import Data.Tuple.HT (mapPair, mapSnd, ) import Data.Ord.HT (comparing, )@@ -62,14 +62,12 @@ instance Monoid Seconds where mempty = Seconds 0- mappend = (<>) instance Semigroup Ticks where Ticks x <> Ticks y = Ticks $ x+y instance Monoid Ticks where mempty = Ticks 0- mappend = (<>) instance (Semigroup a) => Semigroup (T m t a) where@@ -77,7 +75,6 @@ instance (Monoid a) => Monoid (T m t a) where mempty = cons mempty- mappend x y = cons $ mappend (decons x) (decons y) class RelativeC t where@@ -122,9 +119,9 @@ else error $ msg ++ ": negative number" inc ::- (Monoid a) =>+ (Semigroup a) => T m Relative a -> T m t a -> T m t a-inc dt t = cons $ mappend (decons t) (decons dt)+inc dt t = cons $ decons t <> decons dt subSat :: Split a => T m t a -> T m t a -> T m Relative a