[github/fretlink/edi-parser.git] / specification / src / Text / Edifact / D96A / Segments / COM.hs

{-# LANGUAGE OverloadedStrings #-}

---- Machine generated code.
---- Output of edi-parser-scaffolder

module Text.Edifact.D96A.Segments.COM
  ( -- * Definition
    segmentCOM
    -- * Dependencies
  , compositeC076
  ) where

import           Text.Edifact.D96A.Composites (compositeC076)

import           Text.Edifact.Parsing
import           Text.Edifact.Types           (Value)

-- | Derived from this specification:
--
-- >       COM    COMMUNICATION CONTACT
-- >
-- >       Function: To identify a communication number of a department or
-- >                 a person to whom communication should be directed.
-- >
-- > 010   C076  COMMUNICATION CONTACT                          M
-- >       3148   Communication number                          M  an..512
-- >       3155   Communication channel qualifier               M  an..3
--
-- Dependencies: 'compositeC076'.
segmentCOM :: Parser Value
segmentCOM =
  segment "COM"
    [ "010" .@ mandatory compositeC076
    ]
Commit	Line	Data
a9d77a20 FM	1	{-# LANGUAGE OverloadedStrings #-}
	2
	3	---- Machine generated code.
	4	---- Output of edi-parser-scaffolder
	5
	6	module Text.Edifact.D96A.Segments.COM
	7	( -- * Definition
	8	segmentCOM
	9	-- * Dependencies
	10	, compositeC076
	11	) where
	12
	13	import Text.Edifact.D96A.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 department or
	23	-- > a person to whom communication should be directed.
	24	-- >
	25	-- > 010 C076 COMMUNICATION CONTACT M
	26	-- > 3148 Communication number M an..512
	27	-- > 3155 Communication channel qualifier M an..3
	28	--
	29	-- Dependencies: 'compositeC076'.
	30	segmentCOM :: Parser Value
	31	segmentCOM =
	32	segment "COM"
	33	[ "010" .@ mandatory compositeC076
	34	]