specification/src/Text/Edifact/D96A/Simples/S6245.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Simples.S6245
   7   ( simple6245
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- >   6245  Temperature qualifier
  16 -- >
  17 -- >   Desc: A code giving specific meaning to the temperature.
  18 -- >
  19 -- >   Repr: an..3
  20 -- >
  21 -- >         1 Storage temperature
  22 -- >              The temperature at which the cargo is to be kept while it
  23 -- >              is in storage.
  24 -- >         2 Transport temperature
  25 -- >              The temperature at which cargo is to be kept while it is
  26 -- >              under transport.
  27 -- >         3 Cargo operating temperature
  28 -- >              The temperature at which cargo is to be kept during cargo
  29 -- >              handling.
  30 -- >         4 Transport emergency temperature
  31 -- >              The temperature at which emergency procedures apply for
  32 -- >              the disposal of temperature-controlled goods.
  33 -- >         5 Transport control temperature
  34 -- >              The maximum temperature at which certain products can be
  35 -- >              safely transported.
  36 simple6245 :: Parser Value
  37 simple6245 = simple "6245" (alphaNumeric `upTo` 3)