diff --git a/machinecell.cabal b/machinecell.cabal
--- a/machinecell.cabal
+++ b/machinecell.cabal
@@ -1,5 +1,5 @@
 name:                machinecell
-version:             3.3.0
+version:             3.3.1
 synopsis:            Arrow based stream transducers
 license:             BSD3
 license-file:        LICENSE
@@ -39,12 +39,12 @@
         Control.Arrow.Machine.Misc.Discrete
   other-extensions:    FlexibleInstances, Arrows, RankNTypes, TypeSynonymInstances, MultiParamTypeClasses, GADTs, FlexibleContexts, NoMonomorphismRestriction, RecursiveDo
   ghc-options: -Wall
-  build-depends:       base >=4.0 && <5.0, mtl >=2.0.1.1, free >=4.12 && < 5.0, semigroups >=0.8.3.1, profunctors >=4.0, transformers
+  build-depends:       base >=4.6.0.0 && <5.0, mtl >=2.2, free >=4.12, semigroups >=0.8.3.1, profunctors >=4.0.4, transformers==0.4.*
   hs-source-dirs:      src
   default-language:    Haskell2010
 
   if flag(arrow-tr)
-    build-depends:    arrows >= 0.4.1.2
+    build-depends:    arrows >=0.4.3.0
 
 Test-suite spec
   type:                exitcode-stdio-1.0
@@ -52,7 +52,7 @@
   hs-source-dirs:      test
   main-is:             spec.hs
   other-modules:       RandomProc, LoopUtil
-  Build-depends:       base >=4.0 && <5.0, mtl >=2.0.1.1, profunctors >=4.0, QuickCheck >=1.0, hspec >=0.2.0, arrows >=0.4.1.2, semigroups >=0.8.3.1, machinecell -any
+  Build-depends:       base >=4.0 && <5.0, mtl >=2.2, profunctors >=4.0.4, QuickCheck >=1.0, hspec >=0.2.0, arrows >=0.4.3.0, semigroups >=0.8.3.1, machinecell >=1.0.0
 
 source-repository head
   type:		git
@@ -62,4 +62,4 @@
 source-repository this
   type:		git
   location:	https://github.com/as-capabl/machinecell.git
-  tag:		release-3.3.0
+  tag:		release-3.3.1
diff --git a/src/Control/Arrow/Machine/Types.hs b/src/Control/Arrow/Machine/Types.hs
--- a/src/Control/Arrow/Machine/Types.hs
+++ b/src/Control/Arrow/Machine/Types.hs
@@ -110,7 +110,7 @@
 import Control.Monad.Identity
 import Control.Monad.Trans.Cont (ContT(..), evalContT, callCC)
 import Control.Applicative
-import Data.Foldable as Fd
+import qualified Data.Foldable as Fd
 import Data.Traversable as Tv
 import Data.Semigroup (Semigroup, (<>))
 import Data.Maybe (fromMaybe, isNothing, isJust)
@@ -1318,7 +1318,7 @@
             sweepAll outpre
 
             -- Feed values
-            mapM_ feedSweep xs
+            Fd.mapM_ feedSweep xs
 
             return True