slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

words' on an empty string should return empty list

Browse Source
This commit is contained in:
Simon Michael 2013-02-24 20:04:28 +00:00
parent 8aba692926
commit 33153851e9
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hledger-lib/Hledger/Utils.hs
View File

@ -87,9 +87,10 @@ escapeQuotes :: String -> String
escapeQuotes = regexReplace "([\"'])" "\\1" escapeQuotes = regexReplace "([\"'])" "\\1"
-- | Quote-aware version of words - don't split on spaces which are inside quotes. -- | Quote-aware version of words - don't split on spaces which are inside quotes.
-- NB correctly handles "a'b" but not "''a''". -- NB correctly handles "a'b" but not "''a''". Can raise an error if parsing fails.
words' :: String -> [String] words' :: String -> [String]
words' = map stripquotes . fromparse . parsewith p words' "" = []
words' s = map stripquotes $ fromparse $ parsewith p s
where where
p = do ss <- (quotedPattern <|> pattern) `sepBy` many1 spacenonewline p = do ss <- (quotedPattern <|> pattern) `sepBy` many1 spacenonewline
-- eof -- eof