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/Simples/S4055.hs | 41 ++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100644 specification/src/Text/Edifact/D96A/Simples/S4055.hs (limited to 'specification/src/Text/Edifact/D96A/Simples/S4055.hs') diff --git a/specification/src/Text/Edifact/D96A/Simples/S4055.hs b/specification/src/Text/Edifact/D96A/Simples/S4055.hs new file mode 100644 index 0000000..6ac2e09 --- /dev/null +++ b/specification/src/Text/Edifact/D96A/Simples/S4055.hs @@ -0,0 +1,41 @@ +{-# LANGUAGE OverloadedStrings #-} + +---- Machine generated code. +---- Output of edi-parser-scaffolder + +module Text.Edifact.D96A.Simples.S4055 + ( simple4055 + ) where + +import Text.Edifact.Parsing +import Text.Edifact.Types (Value) + +-- | Derived from this specification: +-- +-- > 4055 Terms of delivery or transport function, coded +-- > +-- > Desc: Indication whether the terms relate to e.g. price conditions, +-- > delivery conditions, transport conditions, or a combination of +-- > these. +-- > +-- > Repr: an..3 +-- > +-- > 1 Price condition +-- > Description to be provided. +-- > 2 Despatch condition +-- > Condition requested by the customer under which the +-- > supplier shall deliver: Extent of freight costs, means of +-- > transport. +-- > 3 Price and despatch condition +-- > Description to be provided. +-- > 4 Collected by customer +-- > Indicates that the customer will pick up the goods at the +-- > supplier. He will take care of the means of transport. +-- > 5 Transport condition +-- > Specifies the conditions under which the transport takes +-- > place under the responsibility of the carrier. +-- > 6 Delivery condition +-- > Specifies the conditions under which the goods must be +-- > delivered to the consignee. +simple4055 :: Parser Value +simple4055 = simple "4055" (alphaNumeric `upTo` 3) -- cgit v1.2.3