git.iko.soy/patch
on develop help sign in
arrgh!
f07294dOliver Batchelor
test/Reflex/Plan/Reflex.hs+3−3
compare with develop
unifiedsplit
@@ -29,7 +29,7 @@ import Control.Monad.State.Strict
29
29
30import Data.Dependent.Sum (DSum (..))
30import Data.Dependent.Sum (DSum (..))
31import Data.Monoid
31import Data.Monoid
32−import Data.Traversable (traverse, sequence)
32+import Data.Traversable (traverse, sequenceA)
33import Data.Maybe
33import Data.Maybe
34import qualified Data.IntMap.Strict as IntMap
34import qualified Data.IntMap.Strict as IntMap
35import Control.Monad.Ref
35import Control.Monad.Ref
@@ -40,7 +40,7 @@ import Data.IORef
40import System.Mem
40import System.Mem
41
41
42-- Note: this import must come last to silence warnings from AMP
42-- Note: this import must come last to silence warnings from AMP
43−import Prelude hiding (sequence)
43+import Prelude
44
44
45type MonadIORef m = (MonadIO m, MonadRef m, Ref m ~ Ref IO)
45type MonadIORef m = (MonadIO m, MonadRef m, Ref m ~ Ref IO)
46
46
@@ -104,7 +104,7 @@ triggerFrame readResult _ occs = do
104
104
105
105
106readEvent' :: MonadReadEvent t m => EventHandle t a -> m (Maybe a)
106readEvent' :: MonadReadEvent t m => EventHandle t a -> m (Maybe a)
107−readEvent' = readEvent >=> sequence
107+readEvent' = readEvent >=> sequenceA
108
108
109
109
110-- Convenience functions for running tests producing Events/Behaviors
110-- Convenience functions for running tests producing Events/Behaviors