specification/src/Text/Edifact/D96A/Segments/TMD.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Segments.TMD
   7   ( -- * Definition
   8     segmentTMD
   9     -- * Dependencies
  10   , compositeC219
  11   , simple8332
  12   , simple8341
  13   ) where
  14
  15 import           Text.Edifact.D96A.Composites (compositeC219)
  16 import           Text.Edifact.D96A.Simples    (simple8332, simple8341)
  17
  18 import           Text.Edifact.Parsing
  19 import           Text.Edifact.Types           (Value)
  20
  21 -- | Derived from this specification:
  22 --
  23 -- >     | TMD    TRANSPORT MOVEMENT DETAILS
  24 -- >
  25 -- >     | Function: To specify operational transport movement details for
  26 -- >                 a goods item or equipment (which may differ from the
  27 -- >                 contractual conditions).
  28 -- >
  29 -- > 010   C219  MOVEMENT TYPE                                  C
  30 -- >       8335   Movement type, coded                          C  an..3
  31 -- >       8334   Movement type                                 C  an..35
  32 -- >
  33 -- > 020   8332  EQUIPMENT PLAN                                 C  an..26
  34 -- >
  35 -- > 030   8341  HAULAGE ARRANGEMENTS, CODED                    C  an..3
  36 --
  37 -- Dependencies: 'compositeC219', 'simple8332', 'simple8341'.
  38 segmentTMD :: Parser Value
  39 segmentTMD =
  40   segment "TMD"
  41     [ "010" .@ optional  compositeC219
  42     , "020" .@ optional  simple8332
  43     , "030" .@ optional  simple8341
  44     ]