1 module Text.Edifact.Scaffolder.Simples.Elements
5 import Text.Edifact.Scaffolder.Commons
7 import Text.Parsec (digit, eof, oneOf, string,
9 import Text.Parsec.String (Parser)
11 listSimples :: Scaffolding [ElementWithDefinition SimpleCode]
12 listSimples = listElements "simples" simpleCodeParser
14 simpleCodeParser :: Parser SimpleCode
17 sequence [ oneOf ['1'..'9']
23 SimpleCode <$> codeParser