1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Composites.C504
16 import Text.Edifact.D96A.Simples (simple6343, simple6345, simple6347,
19 import Text.Edifact.Parsing
20 import Text.Edifact.Types (Value)
22 -- | Derived from this specification:
24 -- > C504 CURRENCY DETAILS
26 -- > Desc: The usage to which a currency relates.
28 -- > 010 6347 Currency details qualifier M an..3
29 -- > 020 6345 Currency, coded C an..3
30 -- > 030 6343 Currency qualifier C an..3
31 -- > 040 6348 Currency rate base C n..4
33 -- Dependencies: 'simple6343', 'simple6345', 'simple6347', 'simple6348'.
34 compositeC504 :: Parser Value
37 [ "010" .@ mandatory simple6347
38 , "020" .@ optional simple6345
39 , "030" .@ optional simple6343
40 , "040" .@ optional simple6348