keera-hails-reactivevalues 0.2.2.0 → 0.2.2.1

raw patch · 2 files changed

+12/−4 lines, 2 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• keera-hails-reactivevalues.cabal +8/−1
• src/Data/ReactiveValue.hs +4/−3

@@ -7,7 +7,7 @@ -- The package version. See the Haskell package versioning policy -- (http://www.haskell.org/haskellwiki/Package_versioning_policy) for -- standards guiding when and how versions should be incremented.-Version:             0.2.2.0+Version:             0.2.2.1  -- A short (one-line) description of the package. Synopsis:            Haskell on Rails - Reactive Values@@ -39,6 +39,8 @@ -- A copyright notice. -- Copyright: +Tested-with:         GHC == 7.6.3, GHC == 7.8.4, GHC == 7.10.2+ Category:            Development  Build-type:          Simple@@ -130,3 +132,8 @@       tasty-hunit,       QuickCheck,       HUnit++source-repository head+    type: git+    location: git://github.com/keera-studios/keera-hails+    subdir: keera-hails-reactivevalues

@@ -227,7 +227,7 @@ -- | To facilitate creating RW reactive values from monadic actions, pairs -- of a getter and a setter are also RVs. instance ReactiveValueWrite (a -> m b) a m => ReactiveValueWrite (m a, a -> m b) a m where-  reactiveValueWrite (_, f) v = reactiveValueWrite f v+  reactiveValueWrite (_, f) = reactiveValueWrite f  -- $readwritervs --@@ -311,7 +311,7 @@   ReactiveFieldRead (FieldGetter m a) (FieldNotifier m a)  -- | A Write-Only RV.-data ReactiveFieldWrite m a =+newtype ReactiveFieldWrite m a =   ReactiveFieldWrite (FieldSetter m a)  -- | A Read-Write RV.@@ -378,6 +378,7 @@  where notifier _ = return ()        getter     = return e +{-# ANN liftR "HLint: ignore Use fmap" #-} -- | Lift a transformation onto a RV. Note that this creates a new -- RV, it does not modify the existing RV. liftR :: (Monad m, ReactiveValueRead a b m) => (b -> c) -> a -> ReactiveFieldRead m c@@ -597,7 +598,7 @@        => a -> b -> ReactiveFieldRead m v lMerge = liftR2 (\a _ -> a) --- | Right merge (give priority to the value on the left)+-- | Right merge (give priority to the value on the right) rMerge :: (Monad m, ReactiveValueRead a v m, ReactiveValueRead b v m)        => a -> b -> ReactiveFieldRead m v rMerge = liftR2 (\_ b -> b)