blob: 988a8ed1d938fc6fc08f6ee3476f6adb4d14e802 (
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
|
{-# LANGUAGE OverloadedStrings #-}
---- Machine generated code.
---- Output of edi-parser-scaffolder
module Text.Edifact.D96A.Simples.S6341
( simple6341
) where
import Text.Edifact.Parsing
import Text.Edifact.Types (Value)
-- | Derived from this specification:
--
-- > 6341 Currency market exchange, coded
-- >
-- > Desc: Code identifying the market upon which the currency exchange
-- > rate is based.
-- >
-- > Repr: an..3
-- >
-- > AAA Paris exchange
-- > Self explanatory.
-- > AMS Amsterdam exchange
-- > Self explanatory.
-- > ARG Bolsa de Comercio de Buenos Aires
-- > Argentina exchange.
-- > AST Australian exchange
-- > Self explanatory.
-- > AUS Wien exchange
-- > Wiener Boersenkammer.
-- > BEL Brussel exchange
-- > Commission de la Bourse Bruxelles.
-- > CAN Toronto exchange
-- > Self explanatory.
-- > CAR Contractual agreement exchange rate
-- > Self explanatory.
-- > 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
-- > Description to be provided.
-- > FIN Helsinki exchange
-- > Self explanatory.
-- > FRA Frankfurt exchange
-- > Self explanatory.
-- > IMF International Monetary Fund
-- > Self explanatory.
-- > LNF London exchange, first closing
-- > Self explanatory.
-- > LNS London exchange, second closing
-- > Self explanatory.
-- > MIL Milan exchange
-- > Self explanatory.
-- > NOR Oslo exchange
-- > Self explanatory.
-- > NYC New York exchange
-- > Self explanatory.
-- > PHI Philadelphia exchange
-- > Self explanatory.
-- > SRE Specific railway exchange currency
-- > Self explanatory.
-- > SWE Stockholm exchange
-- > Self explanatory.
-- > ZUR Zurich exchange
-- > Self explanatory.
simple6341 :: Parser Value
simple6341 = simple "6341" (alphaNumeric `upTo` 3)
|