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

{-# LANGUAGE OverloadedStrings #-}

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

module Text.Edifact.D96A.Composites.C280
  ( -- * Definition
    compositeC280
    -- * Dependencies
  , simple6152
  , simple6162
  , simple6411
  ) where

import           Text.Edifact.D96A.Simples (simple6152, simple6162, simple6411)

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

-- | Derived from this specification:
--
-- >       C280  RANGE
-- >
-- >       Desc: Range minimum and maximum limits.
-- >
-- > 010   6411   Measure unit qualifier                        M  an..3
-- > 020   6162   Range minimum                                 C  n..18
-- > 030   6152   Range maximum                                 C  n..18
--
-- Dependencies: 'simple6152', 'simple6162', 'simple6411'.
compositeC280 :: Parser Value
compositeC280 =
  composite "C280"
    [ "010" .@ mandatory simple6411
    , "020" .@ optional  simple6162
    , "030" .@ optional  simple6152
    ]
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.Composites.C280
	7	( -- * Definition
	8	compositeC280
	9	-- * Dependencies
	10	, simple6152
	11	, simple6162
	12	, simple6411
	13	) where
	14
	15	import Text.Edifact.D96A.Simples (simple6152, simple6162, simple6411)
	16
	17	import Text.Edifact.Parsing
	18	import Text.Edifact.Types (Value)
	19
	20	-- \| Derived from this specification:
	21	--
	22	-- > C280 RANGE
	23	-- >
	24	-- > Desc: Range minimum and maximum limits.
	25	-- >
	26	-- > 010 6411 Measure unit qualifier M an..3
	27	-- > 020 6162 Range minimum C n..18
	28	-- > 030 6152 Range maximum C n..18
	29	--
	30	-- Dependencies: 'simple6152', 'simple6162', 'simple6411'.
	31	compositeC280 :: Parser Value
	32	compositeC280 =
	33	composite "C280"
	34	[ "010" .@ mandatory simple6411
	35	, "020" .@ optional simple6162
	36	, "030" .@ optional simple6152
	37	]