1 files changed, 20 insertions, 0 deletions

diff --git a/scaffolder/src/Text/Edifact/Scaffolder/Composites/Elements.hs b/scaffolder/src/Text/Edifact/Scaffolder/Composites/Elements.hs
new file mode 100644
index 0000000..acfcbdb
--- /dev/null
+++ b/scaffolder/src/Text/Edifact/Scaffolder/Composites/Elements.hs
@@ -0,0 +1,20 @@
+module Text.Edifact.Scaffolder.Composites.Elements
+  ( listComposites
+  ) where
+
+import           Text.Edifact.Scaffolder.Commons
+
+import           Data.Char                       (toUpper)
+import           Text.Parsec                     (count, digit, eof, oneOf,
+                                                  string)
+import           Text.Parsec.String              (Parser)
+
+listComposites :: Scaffolding [ElementWithDefinition CompositeCode]
+listComposites = listElements "composites" compositeCodeParser
+
+compositeCodeParser :: Parser CompositeCode
+compositeCodeParser = do
+  initial <- toUpper <$> oneOf "ce"
+  rest <- count 3 digit
+  _ <- string ".txt"
+  CompositeCode (initial : rest) <$ eof