Release code as open sourceHEADmaster

1 files changed, 25 insertions, 0 deletions

diff --git a/scaffolder/src/Text/Edifact/Scaffolder/Root.hs b/scaffolder/src/Text/Edifact/Scaffolder/Root.hs
new file mode 100644
index 0000000..54a48d5
--- /dev/null
+++ b/scaffolder/src/Text/Edifact/Scaffolder/Root.hs
@@ -0,0 +1,25 @@
+{-# LANGUAGE OverloadedLists   #-}
+{-# LANGUAGE OverloadedStrings #-}
+
+module Text.Edifact.Scaffolder.Root
+  ( rootModule
+  ) where
+
+import           Text.Edifact.Scaffolder.Commons
+
+rootModule :: Scaffolding ()
+rootModule = getRootModuleName >>= generateRootModule
+
+generateRootModule :: ModuleName -> Scaffolding ()
+generateRootModule mn =
+  let exports = [ reexportAlias subModulesAlias ]
+      subModulesAlias = "S"
+      importSubModule sm = ImportAll (ImportAs (mn <.> sm) subModulesAlias)
+      subModules = [ "Composites"
+                   , "Messages"
+                   , "Segments"
+                   ]
+      imports = [ ImportGroup (importSubModule <$> subModules) ]
+  in
+    saveHaskellModule mn $
+      moduleDeclaration mn exports imports