1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D01B.Composites.C200
18 import Text.Edifact.D01B.Simples (simple1131, simple3055, simple4237,
19 simple7140, simple8022, simple8023)
21 import Text.Edifact.Parsing
22 import Text.Edifact.Types (Value)
24 -- | Derived from this specification:
28 -- > Desc: Identification of a charge by code and/or by name.
30 -- > 010 8023 Freight and other charges description
31 -- > identifier C an..17
32 -- > 020 1131 Code list identification code C an..17
33 -- > 030 3055 Code list responsible agency code C an..3
34 -- > 040 8022 Freight and other charges description C an..26
35 -- > 050 4237 Payment arrangement code C an..3
36 -- > 060 7140 Item identifier C an..35
38 -- Dependencies: 'simple1131', 'simple3055', 'simple4237', 'simple7140', 'simple8022', 'simple8023'.
39 compositeC200 :: Parser Value
42 [ "010" .@ optional simple8023
43 , "020" .@ optional simple1131
44 , "030" .@ optional simple3055
45 , "040" .@ optional simple8022
46 , "050" .@ optional simple4237
47 , "060" .@ optional simple7140