slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add: allow blank descriptions

Browse Source
This commit is contained in:
Simon Michael 2010-07-17 15:13:16 +00:00
parent 6cd65ea7a6
commit 9acb57cfc5
2 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Hledger/Cli/Commands/Add.hs
View File

@ -54,7 +54,7 @@ getTransaction j opts args defaultDate = do
(Just $ showDate defaultDate) (Just $ showDate defaultDate)
(Just $ \s -> null s || (Just $ \s -> null s ||
isRight (parse (smartdate >> many spacenonewline >> eof) "" $ lowercase s)) isRight (parse (smartdate >> many spacenonewline >> eof) "" $ lowercase s))
description <- askFor "description" Nothing (Just $ not . null) description <- askFor "description" (Just "") Nothing
let historymatches = transactionsSimilarTo j args description let historymatches = transactionsSimilarTo j args description
bestmatch | null historymatches = Nothing bestmatch | null historymatches = Nothing
| otherwise = Just $ snd $ head historymatches | otherwise = Just $ snd $ head historymatches

5
tests/add-blank-description-fails.test
View File

@ -1,5 +0,0 @@
bin/hledger -f nosuch.journal add
<<<
>>>2 /date .*: description: description:/