Skip to content
Browse files

Merge pull request #7 from f-me/master

Infix precedence redundancy fix
  • Loading branch information...
2 parents 7ae662f + 67ac966 commit 99c94576571c9976068c9e7c3f560b3b1dac5a3c @ozataman committed Oct 29, 2012
Showing with 3 additions and 2 deletions.
  1. +2 −1 csv-conduit.cabal
  2. +1 −1 src/Data/CSV/Conduit.hs
View
3 csv-conduit.cabal
@@ -1,5 +1,5 @@
Name: csv-conduit
-Version: 0.3.0.2
+Version: 0.3.0.3
Synopsis: A flexible, fast, conduit-based CSV parser library for Haskell.
Homepage: http://github.com/ozataman/csv-conduit
License: BSD3
@@ -9,6 +9,7 @@ Maintainer: Ozgun Ataman <ozataman@gmail.com>
Category: Data, Conduit, CSV, Text
Build-type: Simple
Cabal-version: >= 1.9.2
+Tested-with: GHC == 7.6.1
Description:
CSV files are the de-facto standard in many situations involving data transfer,
particularly when dealing with enterprise application or disparate database
View
2 src/Data/CSV/Conduit.hs
@@ -118,7 +118,7 @@ instance CSV ByteString (Row ByteString) where
let
sep = B.pack [c2w (csvOutputColSep s)]
wrapField !f = case csvOutputQuoteChar s of
- Just !x -> x `B8.cons` escape x f `B8.snoc` x
+ Just !x -> (x `B8.cons` escape x f) `B8.snoc` x
_ -> f
escape c str = B8.intercalate (B8.pack [c,c]) $ B8.split c str
in B.intercalate sep . map wrapField $ r

0 comments on commit 99c9457

Please sign in to comment.
Something went wrong with that request. Please try again.