1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D01B.Composites.C108
13 import Text.Edifact.D01B.Simples (simple4440)
15 import Text.Edifact.Parsing
16 import Text.Edifact.Types (Value)
18 -- | Derived from this specification:
20 -- > C108 TEXT LITERAL
22 -- > Desc: Free text; one to five lines.
24 -- > 010 4440 Free text value M an..512
25 -- > 020 4440 Free text value C an..512
26 -- > 030 4440 Free text value C an..512
27 -- > 040 4440 Free text value C an..512
28 -- > 050 4440 Free text value C an..512
30 -- Dependencies: 'simple4440'.
31 compositeC108 :: Parser Value
34 [ "010" .@ mandatory simple4440
35 , "020" .@ optional simple4440
36 , "030" .@ optional simple4440
37 , "040" .@ optional simple4440
38 , "050" .@ optional simple4440