1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Composites.C509
18 import Text.Edifact.D96A.Simples (simple5118, simple5125, simple5284,
19 simple5375, simple5387, simple6411)
21 import Text.Edifact.Parsing
22 import Text.Edifact.Types (Value)
24 -- | Derived from this specification:
26 -- > C509 PRICE INFORMATION
28 -- > Desc: Identification of price type, price and related details.
30 -- > 010 5125 Price qualifier M an..3
31 -- > 020 5118 Price C n..15
32 -- > 030 5375 Price type, coded C an..3
33 -- > 040 5387 Price type qualifier C an..3
34 -- > 050 5284 Unit price basis C n..9
35 -- > 060 6411 Measure unit qualifier C an..3
37 -- Dependencies: 'simple5118', 'simple5125', 'simple5284', 'simple5375', 'simple5387', 'simple6411'.
38 compositeC509 :: Parser Value
41 [ "010" .@ mandatory simple5125
42 , "020" .@ optional simple5118
43 , "030" .@ optional simple5375
44 , "040" .@ optional simple5387
45 , "050" .@ optional simple5284
46 , "060" .@ optional simple6411