Release code as open sourceHEADmaster

1 files changed, 110 insertions, 0 deletions

diff --git a/specification/src/Text/Edifact/D01B/Simples/S6341.hs b/specification/src/Text/Edifact/D01B/Simples/S6341.hs
new file mode 100644
index 0000000..8e6f0d6
--- /dev/null
+++ b/specification/src/Text/Edifact/D01B/Simples/S6341.hs
@@ -0,0 +1,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)