Release code as open sourceHEADmaster

1 files changed, 26 insertions, 0 deletions

diff --git a/scaffolder/src/Text/Edifact/Scaffolder/Simples/Elements.hs b/scaffolder/src/Text/Edifact/Scaffolder/Simples/Elements.hs
new file mode 100644
index 0000000..328a5d0
--- /dev/null
+++ b/scaffolder/src/Text/Edifact/Scaffolder/Simples/Elements.hs
@@ -0,0 +1,26 @@
+module Text.Edifact.Scaffolder.Simples.Elements
+  ( listSimples
+  ) where
+
+import           Text.Edifact.Scaffolder.Commons
+
+import           Text.Parsec                     (digit, eof, oneOf, string,
+                                                  (<?>))
+import           Text.Parsec.String              (Parser)
+
+listSimples :: Scaffolding [ElementWithDefinition SimpleCode]
+listSimples = listElements "simples" simpleCodeParser
+
+simpleCodeParser :: Parser SimpleCode
+simpleCodeParser =
+  let codeParser =
+        sequence [ oneOf ['1'..'9']
+                 , digit
+                 , digit
+                 , digit
+                 ]
+  in
+  SimpleCode <$> codeParser
+             <*  string ".txt"
+             <*  eof
+             <?> "SimpleCode"