From 20878df5445b68397ef372e80e3c8150f2d45750 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Wed, 23 Sep 2009 17:43:23 +0000 Subject: [PATCH] hlint: use getContents --- Ledger/Parse.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Ledger/Parse.hs b/Ledger/Parse.hs index d46e104d9..ba2aad75c 100644 --- a/Ledger/Parse.hs +++ b/Ledger/Parse.hs @@ -6,7 +6,7 @@ Parsers for standard ledger and timelog files. module Ledger.Parse where -import Prelude hiding (readFile, putStr, putStrLn, print) +import Prelude hiding (readFile, putStr, putStrLn, print, getContents) import Control.Monad.Error (ErrorT(..), MonadIO, liftIO, throwError, catchError) import Text.ParserCombinators.Parsec import Text.ParserCombinators.Parsec.Char @@ -64,7 +64,7 @@ printParseError e = do putStr "ledger parse error at "; print e -- let's get to it parseLedgerFile :: LocalTime -> FilePath -> ErrorT String IO RawLedger -parseLedgerFile t "-" = liftIO (hGetContents stdin) >>= parseLedger t "-" +parseLedgerFile t "-" = liftIO getContents >>= parseLedger t "-" parseLedgerFile t f = liftIO (readFile f) >>= parseLedger t f -- | Parses the contents of a ledger file, or gives an error. Requires