specification/src/Text/Edifact/D01B/Simples/S8077.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.Simples.S8077
   7   ( simple8077
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- >      8077  Equipment supplier code                                 [B]
  16 -- >
  17 -- >      Desc: Code specifying the party that is the supplier of the
  18 -- >            equipment.
  19 -- >
  20 -- >      Repr: an..3
  21 -- >
  22 -- >      1     Shipper supplied
  23 -- >               The transport equipment is supplied by the shipper.
  24 -- >
  25 -- >      2     Carrier supplied
  26 -- >               The transport equipment is supplied by the carrier.
  27 -- >
  28 -- >      3     Consolidator supplied
  29 -- >               The equipment is supplied by the consolidator.
  30 -- >
  31 -- >      4     Deconsolidator supplied
  32 -- >               The equipment is supplied by the deconsolidator.
  33 -- >
  34 -- >      5     Third party supplied
  35 -- >               The equipment is supplied by a third party.
  36 -- >
  37 -- >      6     Forwarder supplied from a leasing company
  38 -- >               The equipment is supplied by the forwarder and is taken
  39 -- >               from a leasing company.
  40 -- >
  41 -- >      7     Forwarder supplied from the railways' pool
  42 -- >               The equipment is supplied by the forwarder and is taken
  43 -- >               from a pool established by railway companies.
  44 simple8077 :: Parser Value
  45 simple8077 = simple "8077" (alphaNumeric `upTo` 3)