add: ctrl-d doesn't work on windows, suggest ctrl-c instead

This commit is contained in:
Simon Michael 2009-12-18 04:32:28 +00:00
parent 5378fc9798
commit 73ecaec6c9

View File

@ -26,7 +26,7 @@ add opts args l
| otherwise = do | otherwise = do
hPutStrLn stderr hPutStrLn stderr
"Enter one or more transactions, which will be added to your ledger file.\n\ "Enter one or more transactions, which will be added to your ledger file.\n\
\To complete a transaction, enter . as account name. To quit, enter control-d." \To complete a transaction, enter . as account name. To quit, press control-c."
today <- getCurrentDay today <- getCurrentDay
getAndAddTransactions l opts args today `catch` (\e -> unless (isEOFError e) $ ioError e) getAndAddTransactions l opts args today `catch` (\e -> unless (isEOFError e) $ ioError e)