Frames-dsv 0.1.1 → 0.1.2
raw patch · 3 files changed
+8/−3 lines, 3 filesdep ~hw-dsvPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: hw-dsv
API changes (from Hackage documentation)
Files
- CHANGELOG.md +4/−0
- Frames-dsv.cabal +2/−2
- src/Frames/Dsv.hs +2/−1
CHANGELOG.md view
@@ -1,3 +1,7 @@+# 0.1.2++`hw-dsv-0.4.0` compatibility+ # 0.1 First release of an `hw-dsv`-based CSV parser for use with the `Frames` package.
Frames-dsv.cabal view
@@ -1,5 +1,5 @@ name: Frames-dsv-version: 0.1.1+version: 0.1.2 synopsis: Alternative CSV parser for the Frames package description: Alternative CSV parser for the Frames package. In cases where the built-in Frames CSV parser does not work@@ -27,7 +27,7 @@ , bytestring , Frames >= 0.6 , vinyl- , hw-dsv >= 0.3 && < 0.4+ , hw-dsv >= 0.3 && < 0.5 , pipes >= 4.1 && < 5 , text , vector
src/Frames/Dsv.hs view
@@ -25,6 +25,7 @@ import Frames.TH (rowGen, RowGen(..), tableTypes') import qualified HaskellWorks.Data.Dsv.Lazy.Cursor as SVL+import qualified HaskellWorks.Data.Dsv.Lazy.Cursor.Strict as SVLS import Pipes (MonadIO, Producer, (>->), yield) import qualified Pipes as P@@ -38,7 +39,7 @@ rowLoop :: Monad m => SVL.DsvCursor -> Producer [BS.ByteString] m () rowLoop c = if SVL.dsvCursorPosition d > SVL.dsvCursorPosition c && not (SVL.atEnd c)- then do yield (V.toList (SVL.getRowBetweenStrict c d dEnd))+ then do yield (SVLS.getRowListBetween c d dEnd) rowLoop (SVL.trim d) else return () where nr = SVL.nextRow c