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) =