blob: 8e6f0d6114c448a02e4862c46cb8476dab11fcc0 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
{-# LANGUAGE OverloadedStrings #-}
---- Machine generated code.
---- Output of edi-parser-scaffolder
module Text.Edifact.D01B.Simples.S6341
( simple6341
) where
import Text.Edifact.Parsing
import Text.Edifact.Types (Value)
-- | Derived from this specification:
--
-- > 6341 Exchange rate currency market identifier [C]
-- >
-- > Desc: To identify an exchange rate currency market.
-- >
-- > Repr: an..3
-- >
-- > AAA Paris exchange
-- > The currency exchange rate is set by the Paris exchange.
-- >
-- > AAB Colombian official exchange (Central Bank of Colombia)
-- > The currency exchange rate is set by the Central Bank of
-- > Colombia.
-- >
-- > AMS Amsterdam exchange
-- > The currency exchange rate is set by the Amsterdam
-- > exchange.
-- >
-- > ARG Bolsa de Comercio de Buenos Aires
-- > Argentina exchange.
-- >
-- > AST Australian exchange
-- > The currency exchange rate is set by the Australian
-- > exchange.
-- >
-- > AUS Wien exchange
-- > Wiener Boersenkammer.
-- >
-- > BEL Brussels exchange
-- > Commission de la Bourse Bruxelles.
-- >
-- > CAN Toronto exchange
-- > The currency exchange rate is set by the Toronto
-- > exchange.
-- >
-- > CAR Contractual agreement exchange rate
-- > The currency exchange rate is set by a written or spoken
-- > agreement between two or more parties.
-- >
-- > CIE US Customs Information Exchange
-- > Currency rates published by the US Customs Information
-- > Exchange, 6 WTC, New York NY 10048-0945, USA.
-- >
-- > DEN Copenhagen exchange
-- > Koebenhavns Fondsboers.
-- >
-- > ECR European Community period exchange rate
-- > The currency exchange rate is set for a length of time
-- > by the European Community.
-- >
-- > FIN Helsinki exchange
-- > The currency exchange rate is set by the Helsinki
-- > exchange.
-- >
-- > FRA Frankfurt exchange
-- > The currency exchange rate is set by the Frankfurt
-- > exchange.
-- >
-- > IMF International Monetary Fund
-- > The currency exchange rate is set by the International
-- > Monetary Fund.
-- >
-- > LNF London exchange, first closing
-- > The currency exchange rate is set by the London exchange
-- > at the first closing.
-- >
-- > LNS London exchange, second closing
-- > The currency exchange rate is set by the London exchange
-- > at the second closing.
-- >
-- > MIL Milan exchange
-- > The currency exchange rate is set by the Milan exchange.
-- >
-- > NOR Oslo exchange
-- > The currency exchange rate is set by the Oslo exchange.
-- >
-- > NYC New York exchange
-- > The currency exchange rate is set by the New York
-- > exchange.
-- >
-- > PHI Philadelphia exchange
-- > The currency exchange rate is set by the Philadelphia
-- > exchange.
-- >
-- > SRE Specific railway exchange currency
-- > Specific rate of exchange applied to currency exchanges
-- > between rail companies and partners.
-- >
-- > SWE Stockholm exchange
-- > The currency exchange rate is set by the Stockholm
-- > exchange.
-- >
-- > ZUR Zurich exchange
-- > The currency exchange rate is set by the Zurich
-- > exchange.
simple6341 :: Parser Value
simple6341 = simple "6341" (alphaNumeric `upTo` 3)
|