From c0c9c7a070da89558f14599b79d5d4ce3113fa22 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Wed, 8 Apr 2009 08:57:05 +0000 Subject: [PATCH] be direct! --- AddCommand.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/AddCommand.hs b/AddCommand.hs index 20466a228..2c8a386a6 100644 --- a/AddCommand.hs +++ b/AddCommand.hs @@ -25,7 +25,7 @@ add :: [Opt] -> [String] -> Ledger -> IO () add opts args l | filepath (rawledger l) == "-" = return () | otherwise = do - hPutStrLn stderr ("Please enter one or more transactions, which will be added to your ledger file.\n\ + hPutStrLn stderr ("Enter one or more transactions, which will be added to your ledger file.\n\ \A blank account or amount ends a transaction, control-d to finish.") ts <- getAndAddTransactions l args hPutStrLn stderr $ printf "\nAdded %d transactions to %s" (length ts) (filepath $ rawledger l)