slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages 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 :: String -> String
stripquotes s = if isSingleQuoted s || isDoubleQuoted s then init $ tail s else s stripquotes s = if isSingleQuoted s || isDoubleQuoted s then init $ tail s else s
isSingleQuoted s = head s == '\'' && last s == '\'' isSingleQuoted s@(_:_:_) = head s == '\'' && last s == '\''
isDoubleQuoted s = head s == '"' && last s == '"' isSingleQuoted _ = False
isDoubleQuoted s@(_:_:_) = head s == '"' && last s == '"'
isDoubleQuoted _ = False
unbracket :: String -> String unbracket :: String -> String
unbracket s unbracket s