add: don't apply a default commodity to amounts on entry (fixes #138)

2014-05-03 15:48:20 -07:00 · 2014-05-03 15:48:20 -07:00 · 120b3b8377
commit 120b3b8377
parent 09ebd3e049
1 changed files with 2 additions and 1 deletions
--- a/hledger/Hledger/Cli/Add.hs
+++ b/hledger/Hledger/Cli/Add.hs
@ -265,7 +265,8 @@ amountAndCommentWizard EntryState{..} = do
   maybeRestartTransaction $
   line $ green $ printf "Amount  %d%s: " pnum (showDefault def)
    where  
-      parseAmountAndComment = either (const Nothing) Just . parseWithCtx (jContext esJournal) amountandcommentp
+      parseAmountAndComment = either (const Nothing) Just . parseWithCtx nodefcommodityctx amountandcommentp
+      nodefcommodityctx = (jContext esJournal){ctxCommodityAndStyle=Nothing}
      amountandcommentp = do
        a <- amountp
        many spacenonewline