1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Segments.CUX
15 import Text.Edifact.D96A.Composites (compositeC504)
16 import Text.Edifact.D96A.Simples (simple5402, simple6341)
18 import Text.Edifact.Parsing
19 import Text.Edifact.Types (Value)
21 -- | Derived from this specification:
25 -- > Function: To specify currencies used in the transaction and
26 -- > relevant details for the rate of exchange.
28 -- > 010 C504 CURRENCY DETAILS C
29 -- > 6347 Currency details qualifier M an..3
30 -- > 6345 Currency, coded C an..3
31 -- > 6343 Currency qualifier C an..3
32 -- > 6348 Currency rate base C n..4
34 -- > 020 C504 CURRENCY DETAILS C
35 -- > 6347 Currency details qualifier M an..3
36 -- > 6345 Currency, coded C an..3
37 -- > 6343 Currency qualifier C an..3
38 -- > 6348 Currency rate base C n..4
40 -- > 030 5402 RATE OF EXCHANGE C n..12
42 -- > 040 6341 CURRENCY MARKET EXCHANGE, CODED C an..3
44 -- Dependencies: 'compositeC504', 'simple5402', 'simple6341'.
45 segmentCUX :: Parser Value
48 [ "010" .@ optional compositeC504
49 , "020" .@ optional compositeC504
50 , "030" .@ optional simple5402
51 , "040" .@ optional simple6341