simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2025-01-06 02:23:46 +03:00
Code Issues Projects Releases Wiki Activity

add: handle partial dates on the command line, instead of failing after all data entry

Browse Source
This commit is contained in:
Simon Michael 2013-03-05 02:08:53 +00:00
parent 5785eae38e
commit edcfd2abb1
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger/Hledger/Cli/Add.hs
View File

@ -103,8 +103,10 @@ getTransactionOrRestart j opts defdate moredefs = do
|| s == "." || s == "."
|| isRight (parseWithCtx nullctx dateandcodep $ lowercase s)) || isRight (parseWithCtx nullctx dateandcodep $ lowercase s))
when (datecodestr == ".") $ ioError $ mkIOError eofErrorType "" Nothing Nothing when (datecodestr == ".") $ ioError $ mkIOError eofErrorType "" Nothing Nothing
today <- getCurrentDay
let (sdate,code) = fromparse $ parseWithCtx nullctx dateandcodep datecodestr let (sdate,code) = fromparse $ parseWithCtx nullctx dateandcodep datecodestr
datestr = showDate $ fixSmartDate (parsedate defdate) sdate defday = fixSmartDate today $ fromparse $ (parse smartdate "" . lowercase) defdate
datestr = showDate $ fixSmartDate defday sdate
let (defdesc, moredefs') = headTailDef "" moredefs let (defdesc, moredefs') = headTailDef "" moredefs
desc <- runInteractionDefault $ askFor "description" (Just defdesc) Nothing desc <- runInteractionDefault $ askFor "description" (Just defdesc) Nothing