pipes-csv 1.4.1 → 1.4.2

raw patch · 2 files changed

+17/−18 lines, 2 filesdep +MissingHdep ~HUnitdep ~pipes-bytestringdep ~vector

Dependencies added: MissingH

Dependency ranges changed: HUnit, pipes-bytestring, vector

Files

• pipes-csv.cabal +12/−11
• test/test-pipes-csv.hs +5/−7

@@ -1,5 +1,5 @@ name:                pipes-csv-version:             1.4.1+version:             1.4.2 synopsis:            Fast, streaming csv parser license:             MIT license-file:        LICENSE@@ -26,13 +26,13 @@     , Pipes.Csv.Encoding    build-depends:-      base                  >= 4 && < 5-    , cassava               >= 0.4-    , pipes                 >= 4-    , unordered-containers  >= 0.2-    , blaze-builder         >= 0.4-    , bytestring            >= 0.10-    , vector                >= 0.11+                  base                  >= 4 && < 5+                , blaze-builder         >= 0.4+                , bytestring            >= 0.10+                , cassava               >= 0.4+                , pipes                 >= 4+                , unordered-containers  >= 0.2+                , vector   flag test-hunit@@ -50,12 +50,13 @@   else     build-depends:         base                 >= 4-      , HUnit                >= 1.2+      , HUnit       , pipes                >= 4-      , pipes-bytestring     >= 2+      , pipes-bytestring       , pipes-csv       , cassava              >= 0.4-      , vector               >= 0.11+      , vector+      , MissingH       , bytestring           >= 0.10       , test-framework       >= 0.6       , test-framework-hunit >= 0.2

@@ -9,8 +9,10 @@ import           Test.Framework.Providers.HUnit (testCase) import           Test.HUnit +import           Data.List.Utils (replace) import           Control.Applicative import           Control.Monad+import           Control.Arrow (left) import qualified Data.ByteString.Char8 as C import qualified Data.Vector as DV @@ -90,13 +92,9 @@  testDecoderTuple :: Assertion testDecoderTuple =-    decoderTupleResult @=?-    P.toList (decoderTuple (each $ map C.pack decoderTupleStream))--ioDecoderTuple = runEffect $-    for (decoderTuple (each $ map C.pack decoderTupleStream)) (lift . print)---- (unnamed) Person Record+    let res = P.toList (decoderTuple (each $ map C.pack decoderTupleStream))+        fixup = replace "fromList " "" -- vector <0.11 compatibility+    in decoderTupleResult @=? map (left fixup) res  data Person = Person String Int             deriving (Show, Eq)