Fooling around with a new setup for Text.Pandoc.Data.initialize-data-files

It is Now an exported module, exporting initializeDataFiles which must
be run in PandocMonad if you are going to be looking for any data files.

The point of this is to decouple pandoc's data from "pandoc-core,"
including the infrastructure for PandocMonad.

1 files changed, 2 insertions, 0 deletions

diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs
index aa75436a4..cb8e844ff 100644
--- a/src/Text/Pandoc/App.hs
+++ b/src/Text/Pandoc/App.hs
@@ -64,6 +64,7 @@ import qualified Text.Pandoc.UTF8 as UTF8
 import System.Posix.IO (stdOutput)
 import System.Posix.Terminal (queryTerminal)
 #endif
+import Text.Pandoc.Data (initializeDataFiles)
 
 convertWithOpts :: Opt -> IO ()
 convertWithOpts opts = do
@@ -98,6 +99,7 @@ convertWithOpts opts = do
   let runIO' :: PandocIO a -> IO a
       runIO' f = do
         (res, reports) <- runIOorExplode $ do
+                             initializeDataFiles
                              setTrace (optTrace opts)
                              setVerbosity verbosity
                              x <- f