diff --git a/hspec/Main.hs b/hspec/Main.hs
--- a/hspec/Main.hs
+++ b/hspec/Main.hs
@@ -14,7 +14,7 @@
     context "sample 1" $ do
       let textStream = ListT.Text.stream 2 "abcdefg"
       context "result" $ do
-        result <- flip consumeOne textStream $ string "abc" *> string "de" *> char 'f'
+        result <- flip consume textStream $ string "abc" *> string "de" *> char 'f'
         context "head" $ do
           head <- return $ fmap fst result
           it "should be correct" $ shouldBe head (Right 'f')
diff --git a/list-t-attoparsec.cabal b/list-t-attoparsec.cabal
--- a/list-t-attoparsec.cabal
+++ b/list-t-attoparsec.cabal
@@ -1,7 +1,7 @@
 name:
   list-t-attoparsec
 version:
-  0.4.0.0
+  0.4.0.1
 synopsis:
   An "attoparsec" adapter for "list-t"
 category: