reflex 0.3.1 → 0.3.2
raw patch · 2 files changed
+7/−3 lines, 2 filesdep ~semigroups
Dependency ranges changed: semigroups
Files
- reflex.cabal +2/−2
- src/Reflex/Class.hs +5/−1
reflex.cabal view
@@ -1,5 +1,5 @@ Name: reflex-Version: 0.3.1+Version: 0.3.2 Synopsis: Higher-order Functional Reactive Programming Description: Reflex is a high-performance, deterministic, higher-order Functional Reactive Programming system License: BSD3@@ -19,7 +19,7 @@ base >= 4.7 && < 4.9, dependent-sum == 0.2.*, dependent-map == 0.1.*,- semigroups == 0.16.*,+ semigroups >= 0.16 && < 0.18, mtl >= 2.1 && < 2.3, containers == 0.5.*, these >= 0.4 && < 0.7,
src/Reflex/Class.hs view
@@ -1,4 +1,4 @@-{-# LANGUAGE TypeFamilies, FlexibleContexts, FlexibleInstances, MultiParamTypeClasses, RankNTypes, GADTs, ScopedTypeVariables, FunctionalDependencies, RecursiveDo, UndecidableInstances, GeneralizedNewtypeDeriving, StandaloneDeriving, EmptyDataDecls, NoMonomorphismRestriction, TypeOperators, DeriveDataTypeable, PackageImports, TemplateHaskell, LambdaCase #-}+{-# LANGUAGE TypeFamilies, FlexibleContexts, FlexibleInstances, MultiParamTypeClasses, RankNTypes, GADTs, ScopedTypeVariables, FunctionalDependencies, RecursiveDo, UndecidableInstances, GeneralizedNewtypeDeriving, StandaloneDeriving, EmptyDataDecls, NoMonomorphismRestriction, TypeOperators, DeriveDataTypeable, PackageImports, TemplateHaskell, LambdaCase, CPP #-} module Reflex.Class where import Control.Applicative@@ -134,7 +134,11 @@ instance (Reflex t, Semigroup a) => Semigroup (Behavior t a) where a <> b = pull $ liftM2 (<>) (sample a) (sample b) sconcat = pull . liftM sconcat . mapM sample+#if MIN_VERSION_semigroups(0,17,0)+ stimes n = fmap $ stimes n+#else times1p n = fmap $ times1p n+#endif instance (Reflex t, Monoid a) => Monoid (Behavior t a) where mempty = constant mempty