add: avoid quotes preserved in quoted cli args
This commit is contained in:
parent
4b4715ab76
commit
e50c2a4259
@ -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
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user