add: avoid quotes preserved in quoted cli args

2014-03-01 11:08:31 -08:00 · 2014-03-01 11:08:31 -08:00 · e50c2a4259
commit e50c2a4259
parent 4b4715ab76
1 changed files with 1 additions and 1 deletions
--- a/hledger/Hledger/Cli/Add.hs
+++ b/hledger/Hledger/Cli/Add.hs
@ -67,7 +67,7 @@ add opts j
        showHelp
        today <- getCurrentDay
        let es = defEntryState{esOpts=opts
-                              ,esArgs=listofstringopt "args" $ rawopts_ opts
+                              ,esArgs=map stripquotes $ listofstringopt "args" $ rawopts_ opts
                              ,esToday=today
                              ,esDefDate=today
                              ,esJournal=j