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/C059.hs | 42 ++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100644 specification/src/Text/Edifact/D01B/Composites/C059.hs (limited to 'specification/src/Text/Edifact/D01B/Composites/C059.hs') diff --git a/specification/src/Text/Edifact/D01B/Composites/C059.hs b/specification/src/Text/Edifact/D01B/Composites/C059.hs new file mode 100644 index 0000000..cb31e2c --- /dev/null +++ b/specification/src/Text/Edifact/D01B/Composites/C059.hs @@ -0,0 +1,42 @@ +{-# LANGUAGE OverloadedStrings #-} + +---- Machine generated code. +---- Output of edi-parser-scaffolder + +module Text.Edifact.D01B.Composites.C059 + ( -- * Definition + compositeC059 + -- * Dependencies + , simple3042 + ) where + +import Text.Edifact.D01B.Simples (simple3042) + +import Text.Edifact.Parsing +import Text.Edifact.Types (Value) + +-- | Derived from this specification: +-- +-- > C059 STREET +-- > +-- > Desc: Street address and/or PO Box number in a structured +-- > address: one to four lines. +-- > +-- > 010 3042 Street and number or post office box +-- > identifier M an..35 +-- > 020 3042 Street and number or post office box +-- > identifier C an..35 +-- > 030 3042 Street and number or post office box +-- > identifier C an..35 +-- > 040 3042 Street and number or post office box +-- > identifier C an..35 +-- +-- Dependencies: 'simple3042'. +compositeC059 :: Parser Value +compositeC059 = + composite "C059" + [ "010" .@ mandatory simple3042 + , "020" .@ optional simple3042 + , "030" .@ optional simple3042 + , "040" .@ optional simple3042 + ] -- cgit v1.2.3