add: avoid quotes preserved in quoted cli args

This commit is contained in:
Simon Michael 2014-03-01 11:08:31 -08:00
parent 4b4715ab76
commit e50c2a4259

View File

@ -67,7 +67,7 @@ add opts j
showHelp showHelp
today <- getCurrentDay today <- getCurrentDay
let es = defEntryState{esOpts=opts let es = defEntryState{esOpts=opts
,esArgs=listofstringopt "args" $ rawopts_ opts ,esArgs=map stripquotes $ listofstringopt "args" $ rawopts_ opts
,esToday=today ,esToday=today
,esDefDate=today ,esDefDate=today
,esJournal=j ,esJournal=j