Added lines - no tests yet

Author: DDC

streamy-testsuite/lib/Test/PipesStreaming.hs

@@ -11,6 +11,7 @@ import qualified Test.PipesStreaming.Streamy.Bytes as YB
 
 import Data.Foldable hiding (concat)
 import qualified Data.ByteString as B
+import qualified Data.Text as T
 import Data.Monoid
 import Data.List.NonEmpty (NonEmpty(..))
 import Control.Applicative
@@ -138,3 +139,16 @@ testDelimitChunksOf = do
                   (\_ -> [] :| [])
                   0
 
+textlines :: Stream T.Text IO r -> Groups T.Text IO r 
+textlines =
+    Y.delimit (\nl txt ->
+                  if T.null txt
+                     then (nl,pure [])
+                     else let nl' = T.last txt == '\n'
+                          in case (nl,T.lines txt) of
+                              (True,ls)    -> (nl', []  :| map pure ls)
+                              (False,l:ls) -> (nl', [l] :| map pure ls)
+                              (_,[])       -> error "never happens")
+              (\_ -> pure [])
+              True
+

streamy-testsuite/package.cabal

@@ -37,6 +37,7 @@ library              test-pipes-streaming
         base >= 4.10 && < 4.11     ,
         transformers > 0.5         ,
         bytestring                 ,
+        text >= 1.2                ,
         tasty >= 0.10.1.1          ,
         tasty-hunit >= 0.9.2       ,
         streamy-bytes-sig == 0.1.0.0