From a9d77a20008efe82862cc1adbfa7a6d4f09f8ff7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Fr=C3=A9d=C3=A9ric=20Menou?= Date: Thu, 8 Dec 2016 10:19:15 +0200 Subject: Release code as open source --- .../src/Text/Edifact/D96A/Composites/C202.hs | 42 ++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100644 specification/src/Text/Edifact/D96A/Composites/C202.hs (limited to 'specification/src/Text/Edifact/D96A/Composites/C202.hs') diff --git a/specification/src/Text/Edifact/D96A/Composites/C202.hs b/specification/src/Text/Edifact/D96A/Composites/C202.hs new file mode 100644 index 0000000..0ec5279 --- /dev/null +++ b/specification/src/Text/Edifact/D96A/Composites/C202.hs @@ -0,0 +1,42 @@ +{-# LANGUAGE OverloadedStrings #-} + +---- Machine generated code. +---- Output of edi-parser-scaffolder + +module Text.Edifact.D96A.Composites.C202 + ( -- * Definition + compositeC202 + -- * Dependencies + , simple1131 + , simple3055 + , simple7064 + , simple7065 + ) where + +import Text.Edifact.D96A.Simples (simple1131, simple3055, simple7064, + simple7065) + +import Text.Edifact.Parsing +import Text.Edifact.Types (Value) + +-- | Derived from this specification: +-- +-- > C202 PACKAGE TYPE +-- > +-- > Desc: Type of package by name or by code from a specified +-- > source. +-- > +-- > 010 7065 Type of packages identification C an..17 +-- > 020 1131 Code list qualifier C an..3 +-- > 030 3055 Code list responsible agency, coded C an..3 +-- > 040 7064 Type of packages C an..35 +-- +-- Dependencies: 'simple1131', 'simple3055', 'simple7064', 'simple7065'. +compositeC202 :: Parser Value +compositeC202 = + composite "C202" + [ "010" .@ optional simple7065 + , "020" .@ optional simple1131 + , "030" .@ optional simple3055 + , "040" .@ optional simple7064 + ] -- cgit v1.2.3