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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.Composites.C080
   7   ( -- * Definition
   8     compositeC080
   9     -- * Dependencies
  10   , simple3036
  11   , simple3045
  12   ) where
  13
  14 import           Text.Edifact.D01B.Simples (simple3036, simple3045)
  15
  16 import           Text.Edifact.Parsing
  17 import           Text.Edifact.Types        (Value)
  18
  19 -- | Derived from this specification:
  20 --
  21 -- >        C080 PARTY NAME
  22 -- >
  23 -- >        Desc: Identification of a transaction party by name, one
  24 -- >              to five lines. Party name may be formatted.
  25 -- >
  26 -- > 010    3036  Party name                                M      an..35
  27 -- > 020    3036  Party name                                C      an..35
  28 -- > 030    3036  Party name                                C      an..35
  29 -- > 040    3036  Party name                                C      an..35
  30 -- > 050    3036  Party name                                C      an..35
  31 -- > 060    3045  Party name format code                    C      an..3
  32 --
  33 -- Dependencies: 'simple3036', 'simple3045'.
  34 compositeC080 :: Parser Value
  35 compositeC080 =
  36   composite "C080"
  37     [ "010" .@ mandatory simple3036
  38     , "020" .@ optional  simple3036
  39     , "030" .@ optional  simple3036
  40     , "040" .@ optional  simple3036
  41     , "050" .@ optional  simple3036
  42     , "060" .@ optional  simple3045
  43     ]