[github/fretlink/edi-parser.git] / core / src / Text / Edifact / Common / Segments / UNT.hs

{-# LANGUAGE OverloadedStrings #-}

module Text.Edifact.Common.Segments.UNT
  ( segmentUNT
  ) where

import           Text.Edifact.Common.Simples (simple0062, simple0074)

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

-- | Derived from this specification:
--
-- >         Change indicators
-- >
-- >           UNT    MESSAGE TRAILER
-- >
-- >           Function: To end and check the completeness of a message.
-- >
-- >     010   0074  NUMBER OF SEGMENTS IN THE MESSAGE                     M  n..6
-- >
-- >     020   0062  MESSAGE REFERENCE NUMBER                              M  an..14
--
-- Dependencies: 'simple0062', 'simple0074'.
segmentUNT :: Parser Value
segmentUNT =
  segment "UNT"
    [ "010" .@ mandatory simple0074
    , "020" .@ mandatory simple0062
    ]
Commit	Line	Data
a9d77a20 FM	1	{-# LANGUAGE OverloadedStrings #-}
	2
	3	module Text.Edifact.Common.Segments.UNT
	4	( segmentUNT
	5	) where
	6
	7	import Text.Edifact.Common.Simples (simple0062, simple0074)
	8
	9	import Text.Edifact.Parsing
	10	import Text.Edifact.Types (Value)
	11
	12	-- \| Derived from this specification:
	13	--
	14	-- > Change indicators
	15	-- >
	16	-- > UNT MESSAGE TRAILER
	17	-- >
	18	-- > Function: To end and check the completeness of a message.
	19	-- >
	20	-- > 010 0074 NUMBER OF SEGMENTS IN THE MESSAGE M n..6
	21	-- >
	22	-- > 020 0062 MESSAGE REFERENCE NUMBER M an..14
	23	--
	24	-- Dependencies: 'simple0062', 'simple0074'.
	25	segmentUNT :: Parser Value
	26	segmentUNT =
	27	segment "UNT"
	28	[ "010" .@ mandatory simple0074
	29	, "020" .@ mandatory simple0062
	30	]