persistent 0.0.0 → 0.0.0.1

raw patch · 2 files changed

+9/−2 lines, 2 files

Files

• Database/Persist/Quasi.hs +8/−1
• persistent.cabal +1/−1

@@ -17,7 +17,14 @@     }  parse :: String -> [EntityDef]-parse = map parse' . nest . map words' . filter (not . null) . lines+parse = map parse' . nest . map words' . filter (not . null)+      . map killCarriage . lines++killCarriage :: String -> String+killCarriage "" = ""+killCarriage s+    | last s == '\r' = init s+    | otherwise = s  words' :: String -> (Bool, [String]) words' (' ':x) = (True, words x)

@@ -1,5 +1,5 @@ name:            persistent-version:         0.0.0+version:         0.0.0.1 license:         BSD3 license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>