specification/src/Text/Edifact/D01B/Segments/COM.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.Segments.COM
   7   ( -- * Definition
   8     segmentCOM
   9     -- * Dependencies
  10   , compositeC076
  11   ) where
  12
  13 import           Text.Edifact.D01B.Composites (compositeC076)
  14
  15 import           Text.Edifact.Parsing
  16 import           Text.Edifact.Types           (Value)
  17
  18 -- | Derived from this specification:
  19 --
  20 -- >        COM  COMMUNICATION CONTACT
  21 -- >
  22 -- >        Function: To identify a communication number of a
  23 -- >                  department or a person to whom communication
  24 -- >                  should be directed.
  25 -- >
  26 -- > 010    C076 COMMUNICATION CONTACT                      M    3
  27 -- >        3148  Communication address identifier          M      an..512
  28 -- >        3155  Communication address code qualifier      M      an..3
  29 --
  30 -- Dependencies: 'compositeC076'.
  31 segmentCOM :: Parser Value
  32 segmentCOM =
  33   segment "COM"
  34     [ "010" .@ mandatory compositeC076
  35     ]