Release code as open source

[github/fretlink/edi-parser.git] / specification / src / Text / Edifact / D96A / Simples / S6347.hs

{-# LANGUAGE OverloadedStrings #-}

---- Machine generated code.
---- Output of edi-parser-scaffolder

module Text.Edifact.D96A.Simples.S6347
  ( simple6347
  ) where

import           Text.Edifact.Parsing
import           Text.Edifact.Types   (Value)

-- | Derived from this specification:
--
-- > * 6347  Currency details qualifier
-- >
-- >   Desc: Specification of the usage to which the currency relates.
-- >
-- >   Repr: an..3
-- >
-- >         1 Charge payment currency
-- >              The currency in which charges are to be paid.
-- >         2 Reference currency
-- >              The currency applicable to amounts stated. It may have to
-- >              be converted.
-- >         3 Target currency
-- >              The currency which should be used to the target
-- >              destination of the transaction.
-- >         4 Transport document currency
-- >              Currency applicable to amounts stated in a transport
-- >              document/message.
-- >         5 Calculation base currency
-- >              Currency on which the calculation is based.
-- >         6 Information Currency
-- >              Additional currency the message recipient needs for
-- >              information purposes. The actual message amount(s) is/are
-- >              not based upon this currency.
-- > +       7 Currency of the account
-- >              Currency in which the account is held.
simple6347 :: Parser Value
simple6347 = simple "6347" (alphaNumeric `upTo` 3)