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

lib: make the supported format names accessible

Browse Source
This commit is contained in:
Simon Michael 2016-04-18 16:42:06 -07:00
parent f9362707b6
commit df4b82740b
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,6 +9,7 @@ to import modules below this one.
-} -}
module Hledger.Read ( module Hledger.Read (
readFormatNames,
-- * Journal reading API -- * Journal reading API
defaultJournalPath, defaultJournalPath,
defaultJournal, defaultJournal,

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

@ -42,6 +42,9 @@ readers = [
,CsvReader.reader ,CsvReader.reader
] ]
readFormatNames :: [StorageFormat]
readFormatNames = map rFormat readers
-- | Which readers are worth trying for this (possibly unspecified) format, filepath, and data ? -- | Which readers are worth trying for this (possibly unspecified) format, filepath, and data ?
readersFor :: (Maybe StorageFormat, Maybe FilePath, String) -> [Reader] readersFor :: (Maybe StorageFormat, Maybe FilePath, String) -> [Reader]
readersFor (format,path,s) = readersFor (format,path,s) =