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/C224.hs | 42 ++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100644 specification/src/Text/Edifact/D96A/Composites/C224.hs (limited to 'specification/src/Text/Edifact/D96A/Composites/C224.hs') diff --git a/specification/src/Text/Edifact/D96A/Composites/C224.hs b/specification/src/Text/Edifact/D96A/Composites/C224.hs new file mode 100644 index 0000000..a352d7e --- /dev/null +++ b/specification/src/Text/Edifact/D96A/Composites/C224.hs @@ -0,0 +1,42 @@ +{-# LANGUAGE OverloadedStrings #-} + +---- Machine generated code. +---- Output of edi-parser-scaffolder + +module Text.Edifact.D96A.Composites.C224 + ( -- * Definition + compositeC224 + -- * Dependencies + , simple1131 + , simple3055 + , simple8154 + , simple8155 + ) where + +import Text.Edifact.D96A.Simples (simple1131, simple3055, simple8154, + simple8155) + +import Text.Edifact.Parsing +import Text.Edifact.Types (Value) + +-- | Derived from this specification: +-- +-- > C224 EQUIPMENT SIZE AND TYPE +-- > +-- > Desc: Code and/or name identifying size and type of equipment +-- > used in transport. Code preferred. +-- > +-- > 010 8155 Equipment size and type identification C an..10 +-- > 020 1131 Code list qualifier C an..3 +-- > 030 3055 Code list responsible agency, coded C an..3 +-- > 040 8154 Equipment size and type C an..35 +-- +-- Dependencies: 'simple1131', 'simple3055', 'simple8154', 'simple8155'. +compositeC224 :: Parser Value +compositeC224 = + composite "C224" + [ "010" .@ optional simple8155 + , "020" .@ optional simple1131 + , "030" .@ optional simple3055 + , "040" .@ optional simple8154 + ] -- cgit v1.2.3