comma 1.0.0 → 1.0.1

raw patch · 3 files changed

+4/−4 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

comma.cabal +2/−2
src/Text/Comma.hs +1/−1
test/Prop.hs +1/−1

comma.cabal view

@@ -1,8 +1,8 @@ name:                comma-version:             1.0.0+version:             1.0.1 synopsis:            CSV Parser & Producer description:         Comma is a simple CSV format parser and producer that-                     closely follows the RFC4810 document.+                     closely follows the RFC4180 document. homepage:            https://github.com/lovasko/comma license:             OtherLicense license-file:        LICENSE

src/Text/Comma.hs view

@@ -43,7 +43,7 @@         -> T.Text     -- ^ CSV text uncomma = T.unlines . map (\r -> T.concat $ intersperse "," (map conv r))   where-    isQuoted  = T.any (`elem` ['"', '\n', '\r'])+    isQuoted  = T.any (`elem` ['"', '\n', '\r', ','])     enquote x = T.concat ["\"", x, "\""]     conv f       | isQuoted f = enquote (T.replace "\"" "\"\"" f)

test/Prop.hs view

@@ -9,7 +9,7 @@ -- | Generate the content of a field. genField :: Gen T.Text genField = fmap T.pack (replicateM 5 $ elements alphabet)-  where alphabet = ['a'..'z'] ++ ['A'..'Z'] ++ "\"\n"+  where alphabet = ['a'..'z'] ++ ['A'..'Z'] ++ "\"\r\n,"  -- | Random-generated instances of CSV. instance Arbitrary CSV where