@@ -29,7 +29,7 @@ import Control.Monad.State.Strict
2929
3030import Data.Dependent.Sum (DSum (..))
3131import Data.Monoid
32−import Data.Traversable (traverse, sequence)
32+import Data.Traversable (traverse, sequenceA)
3333import Data.Maybe
3434import qualified Data.IntMap.Strict as IntMap
3535import Control.Monad.Ref
@@ -40,7 +40,7 @@ import Data.IORef
4040import System.Mem
4141
4242-- Note: this import must come last to silence warnings from AMP
43−import Prelude hiding (sequence)
43+import Prelude
4444
4545type MonadIORef m = (MonadIO m, MonadRef m, Ref m ~ Ref IO)
4646
@@ -104,7 +104,7 @@ triggerFrame readResult _ occs = do
104104
105105
106106readEvent' :: MonadReadEvent t m => EventHandle t a -> m (Maybe a)
107−readEvent' = readEvent >=> sequence
107+readEvent' = readEvent >=> sequenceA
108108
109109
110110-- Convenience functions for running tests producing Events/Behaviors