Release code as open sourceHEADmaster

1 files changed, 23 insertions, 0 deletions

diff --git a/scaffolder/src/Text/Edifact/Scaffolder/Simples/Implementation.hs b/scaffolder/src/Text/Edifact/Scaffolder/Simples/Implementation.hs
new file mode 100644
index 0000000..6cfb2ab
--- /dev/null
+++ b/scaffolder/src/Text/Edifact/Scaffolder/Simples/Implementation.hs
@@ -0,0 +1,23 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Text.Edifact.Scaffolder.Simples.Implementation
+  ( -- *
+    toImplementation
+  ) where
+
+import           Text.Edifact.Scaffolder.Commons
+import           Text.Edifact.Scaffolder.Simples.Types
+
+import           Formatting
+
+toImplementation :: Representation -> Text
+toImplementation (Representation content (UpTo n)   ) = sformat (fContent % " `upTo` " % int) content n
+toImplementation (Representation content (Exactly n)) = sformat (fContent % " `exactly` " % int) content n
+toImplementation (Representation content AnyNumber  ) = sformat ("many " % fContent) content
+
+fContent :: Format t (Content -> t)
+fContent =
+  let display AlphaNumeric = "alphaNumeric"
+      display Alpha        = "alpha"
+      display Numeric      = "numeric"
+  in mapf display stext