add: update help message
This commit is contained in:
parent
49e799d9cc
commit
5d45f5b387
@ -39,7 +39,8 @@ add opts args j
|
||||
| otherwise = do
|
||||
hPutStrLn stderr $
|
||||
"Enter one or more transactions, which will be added to your journal file.\n"
|
||||
++"To complete a transaction, enter . as account name. To quit, press control-c."
|
||||
++"To complete a transaction, enter . when prompted for an account.\n"
|
||||
++"To quit, press control-d or control-c."
|
||||
today <- getCurrentDay
|
||||
runInteraction j (getAndAddTransactions j opts args today)
|
||||
`catch` (\e -> unless (isEOFError e) $ ioError e)
|
||||
|
||||
Loading…
Reference in New Issue
Block a user