1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D01B.Composites.C509
18 import Text.Edifact.D01B.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
31 -- > 010 5125 Price code qualifier M an..3
32 -- > 020 5118 Price amount C n..15
33 -- > 030 5375 Price type code C an..3
34 -- > 040 5387 Price specification code C an..3
35 -- > 050 5284 Unit price basis value C n..9
36 -- > 060 6411 Measurement unit code C an..3
38 -- Dependencies: 'simple5118', 'simple5125', 'simple5284', 'simple5375', 'simple5387', 'simple6411'.
39 compositeC509 :: Parser Value
42 [ "010" .@ mandatory simple5125
43 , "020" .@ optional simple5118
44 , "030" .@ optional simple5375
45 , "040" .@ optional simple5387
46 , "050" .@ optional simple5284
47 , "060" .@ optional simple6411