1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Composites.C228
14 import Text.Edifact.D96A.Simples (simple8178, simple8179)
16 import Text.Edifact.Parsing
17 import Text.Edifact.Types (Value)
19 -- | Derived from this specification:
21 -- > C228 TRANSPORT MEANS
23 -- > Desc: Code and/or name identifying the type of means of
26 -- > 010 8179 Type of means of transport identification C an..8
27 -- > 020 8178 Type of means of transport C an..17
29 -- Dependencies: 'simple8178', 'simple8179'.
30 compositeC228 :: Parser Value
33 [ "010" .@ optional simple8179
34 , "020" .@ optional simple8178