lib: mark ledger reader as experimental, don't use automatically

hledger-lib/Hledger/Data/Types.hs

@@ -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"

hledger-lib/Hledger/Read.hs

@@ -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
 

hledger-lib/Hledger/Read/CsvReader.hs

@@ -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.

hledger-lib/Hledger/Read/JournalReader.hs

@@ -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

hledger-lib/Hledger/Read/LedgerReader.hs

@@ -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

hledger-lib/Hledger/Read/TimeclockReader.hs

@@ -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

hledger-lib/Hledger/Read/TimedotReader.hs

@@ -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.