specification/src/Text/Edifact/D01B/Composites/C208.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.Composites.C208
   7   ( -- * Definition
   8     compositeC208
   9     -- * Dependencies
  10   , simple7402
  11   ) where
  12
  13 import           Text.Edifact.D01B.Simples (simple7402)
  14
  15 import           Text.Edifact.Parsing
  16 import           Text.Edifact.Types        (Value)
  17
  18 -- | Derived from this specification:
  19 --
  20 -- >        C208 IDENTITY NUMBER RANGE
  21 -- >
  22 -- >        Desc: Goods item identification numbers, start and end of
  23 -- >              consecutively numbered range.
  24 -- >
  25 -- > 010    7402  Object identifier                         M      an..35
  26 -- > 020    7402  Object identifier                         C      an..35
  27 --
  28 -- Dependencies: 'simple7402'.
  29 compositeC208 :: Parser Value
  30 compositeC208 =
  31   composite "C208"
  32     [ "010" .@ mandatory simple7402
  33     , "020" .@ optional  simple7402
  34     ]