simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-12-27 12:24:43 +03:00
Code Issues Projects Releases Wiki Activity

fix partial isSingleQuoted/isDoubleQuoted functions

Browse Source
This commit is contained in:
Simon Michael 2011-08-14 22:38:51 +00:00
parent c24609f468
commit 0cb0c61fcb
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -97,8 +97,11 @@ whitespacechars = " \t\n\r"
stripquotes :: String -> String
stripquotes s = if isSingleQuoted s || isDoubleQuoted s then init $ tail s else s
isSingleQuoted s = head s == '\'' && last s == '\''
isDoubleQuoted s = head s == '"' && last s == '"'
isSingleQuoted s@(_:_:_) = head s == '\'' && last s == '\''
isSingleQuoted _ = False
isDoubleQuoted s@(_:_:_) = head s == '"' && last s == '"'
isDoubleQuoted _ = False
unbracket :: String -> String
unbracket s