scaffolder/src/Text/Edifact/Scaffolder.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

module Text.Edifact.Scaffolder
  ( scaffold
  , ScaffoldingEnv(..)
  ) where

import           Text.Edifact.Scaffolder.Commons

import           Text.Edifact.Scaffolder.Composites
import           Text.Edifact.Scaffolder.Messages
import           Text.Edifact.Scaffolder.Root
import           Text.Edifact.Scaffolder.Segments
import           Text.Edifact.Scaffolder.Simples

scaffold :: ScaffoldingEnv -> IO ()
scaffold = runScaffolding $ do
  messages
  segments
  composites
  simples
  rootModule