1 files changed, 30 insertions, 0 deletions

diff --git a/scaffolder/src/Text/Edifact/BundleReader/Configuration.hs b/scaffolder/src/Text/Edifact/BundleReader/Configuration.hs
new file mode 100644
index 0000000..0609c03
--- /dev/null
+++ b/scaffolder/src/Text/Edifact/BundleReader/Configuration.hs
@@ -0,0 +1,30 @@
+{-# LANGUAGE FlexibleContexts #-}
+
+module Text.Edifact.BundleReader.Configuration
+  ( -- * Parsing environment
+    BundleReaderEnv(..)
+    -- * Shortcuts for reading the environment
+  , getTargetRevision
+  , getHome
+  ) where
+
+import           Text.Edifact.Scaffolder.Commons (MessageCode, Revision)
+
+import           Control.Monad.Reader.Class      (MonadReader, asks)
+
+data BundleReaderEnv = BundleReaderEnv { parserRevision :: Revision
+                           , specificationHome          :: FilePath
+                           , bundle                     :: [FilePath]
+                           , messageNames               :: [MessageCode]
+                           , messagesFiles              :: [FilePath]
+                           , segmentsFiles              :: [FilePath]
+                           , compositesFiles            :: [FilePath]
+                           , simplesFiles               :: [FilePath]
+                           , codedSimplesFiles          :: [FilePath]
+                           }
+
+getTargetRevision :: MonadReader BundleReaderEnv m => m Revision
+getTargetRevision = asks parserRevision
+
+getHome :: MonadReader BundleReaderEnv m => m FilePath
+getHome = asks specificationHome