fix:add: account names provided on command line were being ignored [#2305]
Fix suggested by Raphael (lowercasename)
This commit is contained in:
parent
efa101091c
commit
eb9bb16faa
@ -239,7 +239,7 @@ confirmedTransactionWizard prevInput es@EntryState{..} stack@(currentStage : _)
|
|||||||
}
|
}
|
||||||
amountAndCommentString = showAmount amt ++ T.unpack (if T.null comment then "" else " ;" <> comment)
|
amountAndCommentString = showAmount amt ++ T.unpack (if T.null comment then "" else " ;" <> comment)
|
||||||
prevAmountAndCmnt' = replaceNthOrAppend (length esPostings) amountAndCommentString (prevAmountAndCmnt prevInput)
|
prevAmountAndCmnt' = replaceNthOrAppend (length esPostings) amountAndCommentString (prevAmountAndCmnt prevInput)
|
||||||
es' = es{esPostings=esPostings++[p], esArgs=drop 2 esArgs}
|
es' = es{esPostings=esPostings++[p], esArgs=drop 1 esArgs}
|
||||||
confirmedTransactionWizard prevInput{prevAmountAndCmnt=prevAmountAndCmnt'} es' (EnterNewPosting txnParams (Just posting) : stack)
|
confirmedTransactionWizard prevInput{prevAmountAndCmnt=prevAmountAndCmnt'} es' (EnterNewPosting txnParams (Just posting) : stack)
|
||||||
Nothing -> confirmedTransactionWizard prevInput es (drop 1 stack)
|
Nothing -> confirmedTransactionWizard prevInput es (drop 1 stack)
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user