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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Composites.C220
   7   ( -- * Definition
   8     compositeC220
   9     -- * Dependencies
  10   , simple8066
  11   , simple8067
  12   ) where
  13
  14 import           Text.Edifact.D96A.Simples (simple8066, simple8067)
  15
  16 import           Text.Edifact.Parsing
  17 import           Text.Edifact.Types        (Value)
  18
  19 -- | Derived from this specification:
  20 --
  21 -- >       C220  MODE OF TRANSPORT
  22 -- >
  23 -- >       Desc: Method of transport code or name. Code preferred.
  24 -- >
  25 -- > 010   8067   Mode of transport, coded                      C  an..3
  26 -- > 020   8066   Mode of transport                             C  an..17
  27 --
  28 -- Dependencies: 'simple8066', 'simple8067'.
  29 compositeC220 :: Parser Value
  30 compositeC220 =
  31   composite "C220"
  32     [ "010" .@ optional  simple8067
  33     , "020" .@ optional  simple8066
  34     ]