specification/src/Text/Edifact/D96A/Composites/C219.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Composites.C219
   7   ( -- * Definition
   8     compositeC219
   9     -- * Dependencies
  10   , simple8334
  11   , simple8335
  12   ) where
  13
  14 import           Text.Edifact.D96A.Simples (simple8334, simple8335)
  15
  16 import           Text.Edifact.Parsing
  17 import           Text.Edifact.Types        (Value)
  18
  19 -- | Derived from this specification:
  20 --
  21 -- >       C219  MOVEMENT TYPE
  22 -- >
  23 -- >       Desc: Description of type of service for movement of cargo.
  24 -- >
  25 -- > 010   8335   Movement type, coded                          C  an..3
  26 -- > 020   8334   Movement type                                 C  an..35
  27 --
  28 -- Dependencies: 'simple8334', 'simple8335'.
  29 compositeC219 :: Parser Value
  30 compositeC219 =
  31   composite "C219"
  32     [ "010" .@ optional  simple8335
  33     , "020" .@ optional  simple8334
  34     ]