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

{-# LANGUAGE OverloadedStrings #-}

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

module Text.Edifact.D01B.Composites.C222
  ( -- * Definition
    compositeC222
    -- * Dependencies
  , simple1131
  , simple3055
  , simple8212
  , simple8213
  , simple8453
  ) where

import           Text.Edifact.D01B.Simples (simple1131, simple3055, simple8212,
                                            simple8213, simple8453)

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

-- | Derived from this specification:
--
-- >        C222 TRANSPORT IDENTIFICATION
-- >
-- >        Desc: Code and/or name identifying the means of transport.
-- >
-- > 010    8213  Transport means identification name
-- >              identifier                                C      an..9
-- > 020    1131  Code list identification code             C      an..17
-- > 030    3055  Code list responsible agency code         C      an..3
-- > 040    8212  Transport means identification name       C      an..35
-- > 050    8453  Transport means nationality code          C      an..3
--
-- Dependencies: 'simple1131', 'simple3055', 'simple8212', 'simple8213', 'simple8453'.
compositeC222 :: Parser Value
compositeC222 =
  composite "C222"
    [ "010" .@ optional  simple8213
    , "020" .@ optional  simple1131
    , "030" .@ optional  simple3055
    , "040" .@ optional  simple8212
    , "050" .@ optional  simple8453
    ]
Commit	Line	Data
a9d77a20 FM	1	{-# LANGUAGE OverloadedStrings #-}
	2
	3	---- Machine generated code.
	4	---- Output of edi-parser-scaffolder
	5
	6	module Text.Edifact.D01B.Composites.C222
	7	( -- * Definition
	8	compositeC222
	9	-- * Dependencies
	10	, simple1131
	11	, simple3055
	12	, simple8212
	13	, simple8213
	14	, simple8453
	15	) where
	16
	17	import Text.Edifact.D01B.Simples (simple1131, simple3055, simple8212,
	18	simple8213, simple8453)
	19
	20	import Text.Edifact.Parsing
	21	import Text.Edifact.Types (Value)
	22
	23	-- \| Derived from this specification:
	24	--
	25	-- > C222 TRANSPORT IDENTIFICATION
	26	-- >
	27	-- > Desc: Code and/or name identifying the means of transport.
	28	-- >
	29	-- > 010 8213 Transport means identification name
	30	-- > identifier C an..9
	31	-- > 020 1131 Code list identification code C an..17
	32	-- > 030 3055 Code list responsible agency code C an..3
	33	-- > 040 8212 Transport means identification name C an..35
	34	-- > 050 8453 Transport means nationality code C an..3
	35	--
	36	-- Dependencies: 'simple1131', 'simple3055', 'simple8212', 'simple8213', 'simple8453'.
	37	compositeC222 :: Parser Value
	38	compositeC222 =
	39	composite "C222"
	40	[ "010" .@ optional simple8213
	41	, "020" .@ optional simple1131
	42	, "030" .@ optional simple3055
	43	, "040" .@ optional simple8212
	44	, "050" .@ optional simple8453
	45	]