Stub for streaming parsing

Data/Csv/Streaming.hs

@@ -0,0 +1,22 @@
+module Data.Csv.Streaming
+    ( decode
+    , Result(..)
+    ) where
+
+import qualified Data.Attoparsec as A
+import qualified Data.ByteString as B
+
+import Data.Csv.Conversion hiding (Result)
+import Data.Csv.Parser
+
+data Result a = Some [a] (B.ByteString -> Result a)
+              | Partial (B.ByteString -> Result a)
+              | Fail B.ByteString String -- TODO: add more failure info
+
+decode :: FromRecord a => B.ByteString -> Result a
+decode = go
+  where
+    go s = case A.parse (csv defaultDecodeOptions) s of
+        A.Fail rest _ msg -> Fail rest $ "parse error (" ++ msg ++ ")"
+        A.Partial k       -> Partial go
+        A.Done rest r     -> Some undefined undefined

cassava.cabal

@@ -22,6 +22,7 @@ Extra-source-files:  examples/*.hs
 Library
   Exposed-modules:     Data.Csv
                        Data.Csv.Parser
+                       Data.Csv.Streaming
 
   Other-modules:       Data.Csv.Compat.Monoid
                        Data.Csv.Conversion