Get some tests to pass

snoyberg · Sep 29, 2013 · 9704719 · 9704719
1 parent f86a1c2
commit 9704719
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/attoparsec-conduit/test/main.hs b/attoparsec-conduit/test/main.hs
@@ -93,7 +93,7 @@ main = hspec $ do
         it "parses a repeated stream" $ do
             let input = ["aaa\n", "aaa\naaa\n", "aaa\n"]
                 parser = Data.Attoparsec.Text.string "aaa" <* Data.Attoparsec.Text.endOfLine
-                sink = conduitParserEither parser =$= CL.consume
+                sink = conduitParserEither parser =$ CL.consume
             (Right ea) <- runExceptionT $ CL.sourceList input $$ sink
             let chk a = case a of
                           Left{} -> False