[github/fretlink/edi-parser.git] / scaffolder / src / Text / Edifact / BundleReader / Configuration.hs

{-# 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
Commit	Line	Data
a9d77a20 FM	1	{-# LANGUAGE FlexibleContexts #-}
	2
	3	module Text.Edifact.BundleReader.Configuration
	4	( -- * Parsing environment
	5	BundleReaderEnv(..)
	6	-- * Shortcuts for reading the environment
	7	, getTargetRevision
	8	, getHome
	9	) where
	10
	11	import Text.Edifact.Scaffolder.Commons (MessageCode, Revision)
	12
	13	import Control.Monad.Reader.Class (MonadReader, asks)
	14
	15	data BundleReaderEnv = BundleReaderEnv { parserRevision :: Revision
	16	, specificationHome :: FilePath
	17	, bundle :: [FilePath]
	18	, messageNames :: [MessageCode]
	19	, messagesFiles :: [FilePath]
	20	, segmentsFiles :: [FilePath]
	21	, compositesFiles :: [FilePath]
	22	, simplesFiles :: [FilePath]
	23	, codedSimplesFiles :: [FilePath]
	24	}
	25
	26	getTargetRevision :: MonadReader BundleReaderEnv m => m Revision
	27	getTargetRevision = asks parserRevision
	28
	29	getHome :: MonadReader BundleReaderEnv m => m FilePath
	30	getHome = asks specificationHome