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/D01B/Composites/C501.hs | 44 ++++++++++++++++++++++ 1 file changed, 44 insertions(+) create mode 100644 specification/src/Text/Edifact/D01B/Composites/C501.hs (limited to 'specification/src/Text/Edifact/D01B/Composites/C501.hs') diff --git a/specification/src/Text/Edifact/D01B/Composites/C501.hs b/specification/src/Text/Edifact/D01B/Composites/C501.hs new file mode 100644 index 0000000..9dff76c --- /dev/null +++ b/specification/src/Text/Edifact/D01B/Composites/C501.hs @@ -0,0 +1,44 @@ +{-# LANGUAGE OverloadedStrings #-} + +---- Machine generated code. +---- Output of edi-parser-scaffolder + +module Text.Edifact.D01B.Composites.C501 + ( -- * Definition + compositeC501 + -- * Dependencies + , simple1131 + , simple3055 + , simple5245 + , simple5249 + , simple5482 + ) where + +import Text.Edifact.D01B.Simples (simple1131, simple3055, simple5245, + simple5249, simple5482) + +import Text.Edifact.Parsing +import Text.Edifact.Types (Value) + +-- | Derived from this specification: +-- +-- > C501 PERCENTAGE DETAILS +-- > +-- > Desc: Percentage relating to a specified basis. +-- > +-- > 010 5245 Percentage type code qualifier M an..3 +-- > 020 5482 Percentage C n..10 +-- > 030 5249 Percentage basis identification code C an..3 +-- > 040 1131 Code list identification code C an..17 +-- > 050 3055 Code list responsible agency code C an..3 +-- +-- Dependencies: 'simple1131', 'simple3055', 'simple5245', 'simple5249', 'simple5482'. +compositeC501 :: Parser Value +compositeC501 = + composite "C501" + [ "010" .@ mandatory simple5245 + , "020" .@ optional simple5482 + , "030" .@ optional simple5249 + , "040" .@ optional simple1131 + , "050" .@ optional simple3055 + ] -- cgit v1.2.3