diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,5 +1,9 @@
 # ChangeLog for conduit
 
+## 1.3.2.1
+
+* Fix isChunksForExactlyE [#445](https://github.com/snoyberg/conduit/issues/445) [#446](https://github.com/snoyberg/conduit/pull/446)
+
 ## 1.3.2
 
 * Add `mapInputM` [#435](https://github.com/snoyberg/conduit/pull/435)
diff --git a/conduit.cabal b/conduit.cabal
--- a/conduit.cabal
+++ b/conduit.cabal
@@ -1,5 +1,5 @@
 Name:                conduit
-Version:             1.3.2
+Version:             1.3.2.1
 Synopsis:            Streaming data processing library.
 description:
     `conduit` is a solution to the streaming data problem, allowing for production,
@@ -17,7 +17,7 @@
 Maintainer:          michael@snoyman.com
 Category:            Data, Conduit
 Build-type:          Simple
-Cabal-version:       >=1.8
+Cabal-version:       >=1.10
 Homepage:            http://github.com/snoyberg/conduit
 extra-source-files:  test/main.hs
                    , test/doctests.hs
@@ -27,6 +27,7 @@
                    , fusion-macros.h
 
 Library
+  default-language:    Haskell2010
   hs-source-dirs:      src
   Exposed-modules:     Data.Conduit
                        Data.Conduit.Combinators
@@ -67,6 +68,7 @@
   include-dirs:        .
 
 test-suite conduit-test
+    default-language:    Haskell2010
     hs-source-dirs: test
     main-is: main.hs
     other-modules: Data.Conduit.Extra.ZipConduitSpec
@@ -118,6 +120,7 @@
 --     ghc-options:    -Wall -O2 -with-rtsopts=-s
 
 benchmark optimize-201408
+    default-language:    Haskell2010
     type: exitcode-stdio-1.0
     hs-source-dirs: benchmarks
     build-depends:  base
@@ -134,6 +137,7 @@
     ghc-options:    -Wall -O2 -rtsopts
 
 benchmark unfused
+    default-language:    Haskell2010
     type: exitcode-stdio-1.0
     hs-source-dirs: benchmarks
     build-depends:  base
diff --git a/src/Data/Conduit/Combinators.hs b/src/Data/Conduit/Combinators.hs
--- a/src/Data/Conduit/Combinators.hs
+++ b/src/Data/Conduit/Combinators.hs
@@ -1819,7 +1819,7 @@
 chunksOfExactlyE chunkSize = await >>= maybe (return ()) start
     where
         start b
-            | onull b = chunksOfE chunkSize
+            | onull b = chunksOfExactlyE chunkSize
             | Seq.lengthIndex b < chunkSize = continue (Seq.lengthIndex b) [b]
             | otherwise = let (first,rest) = Seq.splitAt chunkSize b in
                             yield first >> start rest
diff --git a/test/main.hs b/test/main.hs
--- a/test/main.hs
+++ b/test/main.hs
@@ -716,8 +716,8 @@
         describe "WriterT" $
             it "pass" $
                 let writer = W.pass $ do
-                    W.tell [1 :: Int]
-                    pure ((), (2:))
+                      W.tell [1 :: Int]
+                      pure ((), (2:))
                 in execWriter (runConduit writer) `shouldBe` [2, 1]
 
     describe "Data.Conduit.Lift" $ do