From df4b82740b91c1b2267827240acc46a49c9671d8 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Mon, 18 Apr 2016 16:42:06 -0700
Subject: [PATCH] lib: make the supported format names accessible

---
 hledger-lib/Hledger/Read.hs      | 1 +
 hledger-lib/Hledger/Read/Util.hs | 3 +++
 2 files changed, 4 insertions(+)

diff --git a/hledger-lib/Hledger/Read.hs b/hledger-lib/Hledger/Read.hs
index 1a377c4f9..2a7a382f8 100644
--- a/hledger-lib/Hledger/Read.hs
+++ b/hledger-lib/Hledger/Read.hs
@@ -9,6 +9,7 @@ to import modules below this one.
 -}
 
 module Hledger.Read (
+       readFormatNames,
        -- * Journal reading API
        defaultJournalPath,
        defaultJournal,
diff --git a/hledger-lib/Hledger/Read/Util.hs b/hledger-lib/Hledger/Read/Util.hs
index 47aad93b4..12bebf6c8 100644
--- a/hledger-lib/Hledger/Read/Util.hs
+++ b/hledger-lib/Hledger/Read/Util.hs
@@ -42,6 +42,9 @@ readers = [
  ,CsvReader.reader
  ]
 
+readFormatNames :: [StorageFormat]
+readFormatNames = map rFormat readers
+
 -- | Which readers are worth trying for this (possibly unspecified) format, filepath, and data ?
 readersFor :: (Maybe StorageFormat, Maybe FilePath, String) -> [Reader]
 readersFor (format,path,s) =