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