From 120a9fd0e1c0d99a86d723953e874b2a04d90bb6 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Sun, 11 Mar 2012 21:36:02 +0000 Subject: [PATCH] docs: readJournalFile haddock fix --- hledger-lib/Hledger/Read.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/hledger-lib/Hledger/Read.hs b/hledger-lib/Hledger/Read.hs index 5a09402cc..8f31b6319 100644 --- a/hledger-lib/Hledger/Read.hs +++ b/hledger-lib/Hledger/Read.hs @@ -85,8 +85,7 @@ journalFromPathAndString format fp s = do fmt fs = intercalate ", " (init fs) ++ " or " ++ last fs ++ " " -- | Read a journal from this file, using the specified data format or --- trying all known formats, or give an error string; also create the file --- if it doesn't exist. +-- trying all known formats, or give an error string. readJournalFile :: Maybe String -> FilePath -> IO (Either String Journal) readJournalFile format "-" = getContents >>= journalFromPathAndString format "(stdin)" readJournalFile format f = do