mirror of
https://github.com/simonmichael/hledger.git
synced 2024-09-20 02:37:12 +03:00
lib: mark ledger reader as experimental, don't use automatically
This commit is contained in:
parent
98ef8f9a60
commit
1f2276c100
@ -332,6 +332,8 @@ data Reader = Reader {
|
||||
-- or error message.
|
||||
,rParser :: Maybe FilePath -> Bool -> FilePath -> Text -> ExceptT String IO Journal
|
||||
|
||||
-- Experimental readers are never tried automatically.
|
||||
,rExperimental :: Bool
|
||||
}
|
||||
|
||||
instance Show Reader where show r = rFormat r ++ " reader"
|
||||
|
@ -214,7 +214,8 @@ tests_readJournal' = [
|
||||
readJournal :: Maybe StorageFormat -> Maybe FilePath -> Bool -> Maybe FilePath -> Text -> IO (Either String Journal)
|
||||
readJournal mformat mrulesfile assrt mfile txt =
|
||||
let
|
||||
rs = maybe readers (:[]) $ findReader mformat mfile
|
||||
stablereaders = filter (not.rExperimental) readers
|
||||
rs = maybe stablereaders (:[]) $ findReader mformat mfile
|
||||
in
|
||||
tryReaders rs mrulesfile assrt mfile txt
|
||||
|
||||
|
@ -68,6 +68,7 @@ reader = Reader
|
||||
{rFormat = "csv"
|
||||
,rExtensions = ["csv"]
|
||||
,rParser = parse
|
||||
,rExperimental = False
|
||||
}
|
||||
|
||||
-- | Parse and post-process a "Journal" from CSV data, or give an error.
|
||||
|
@ -110,6 +110,7 @@ reader = Reader
|
||||
{rFormat = "journal"
|
||||
,rExtensions = ["journal", "j", "hledger", "ledger"]
|
||||
,rParser = parse
|
||||
,rExperimental = False
|
||||
}
|
||||
|
||||
-- | Parse and post-process a "Journal" from hledger's journal file
|
||||
|
@ -46,6 +46,7 @@ reader = Reader
|
||||
{rFormat = "ledger"
|
||||
,rExtensions = []
|
||||
,rParser = parse
|
||||
,rExperimental = True
|
||||
}
|
||||
|
||||
-- | Generate an action that parses and post-processes a "Journal" from a
|
||||
|
@ -73,6 +73,7 @@ reader = Reader
|
||||
{rFormat = "timeclock"
|
||||
,rExtensions = ["timeclock"]
|
||||
,rParser = parse
|
||||
,rExperimental = False
|
||||
}
|
||||
|
||||
-- | Parse and post-process a "Journal" from timeclock.el's timeclock
|
||||
|
@ -58,6 +58,7 @@ reader = Reader
|
||||
{rFormat = "timedot"
|
||||
,rExtensions = ["timedot"]
|
||||
,rParser = parse
|
||||
,rExperimental = False
|
||||
}
|
||||
|
||||
-- | Parse and post-process a "Journal" from the timedot format, or give an error.
|
||||
|
Loading…
Reference in New Issue
Block a user