scaffolder/src/Text/Edifact/Scaffolder/Commons.hs

   1 module Text.Edifact.Scaffolder.Commons
   2   ( -- *
   3     runScaffolding
   4     -- * Reexports
   5   , module X
   6   ) where
   7
   8 import           Text.Edifact.Scaffolder.Commons.Formatters as X
   9 import           Text.Edifact.Scaffolder.Commons.Language   as X
  10 import           Text.Edifact.Scaffolder.Commons.Logging    as X
  11 import           Text.Edifact.Scaffolder.Commons.Parsing    as X
  12 import           Text.Edifact.Scaffolder.Commons.Text       as X
  13 import           Text.Edifact.Scaffolder.Commons.Types      as X
  14
  15 import           Control.Monad.IO.Class                     as X (liftIO)
  16 import           Data.List.NonEmpty                         as X (NonEmpty, nub,
  17                                                                   sort)
  18 import           Data.Maybe                                 as X (fromMaybe)
  19 import           Data.Semigroup                             as X ((<>))
  20 import           Data.String                                as X (IsString,
  21                                                                   fromString)
  22 import           Data.Text                                  as X (Text)
  23 import           System.Directory                           as X (listDirectory)
  24 import           System.FilePath                            as X ((</>))
  25
  26 import           Control.Monad.Reader                       (runReaderT)
  27
  28 runScaffolding :: Scaffolding a -> ScaffoldingEnv -> IO a
  29 runScaffolding = runReaderT