slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

docs: readJournalFile haddock fix

Browse Source
This commit is contained in:
Simon Michael 2012-03-11 21:36:02 +00:00
parent a0dee33f80
commit 120a9fd0e1
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hledger-lib/Hledger/Read.hs
View File

@ -85,8 +85,7 @@ journalFromPathAndString format fp s = do
fmt fs = intercalate ", " (init fs) ++ " or " ++ last fs ++ " " fmt fs = intercalate ", " (init fs) ++ " or " ++ last fs ++ " "
-- | Read a journal from this file, using the specified data format or -- | 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 -- trying all known formats, or give an error string.
-- if it doesn't exist.
readJournalFile :: Maybe String -> FilePath -> IO (Either String Journal) readJournalFile :: Maybe String -> FilePath -> IO (Either String Journal)
readJournalFile format "-" = getContents >>= journalFromPathAndString format "(stdin)" readJournalFile format "-" = getContents >>= journalFromPathAndString format "(stdin)"
readJournalFile format f = do readJournalFile format f = do