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/S4219.hs | 36 ++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 specification/src/Text/Edifact/D96A/Simples/S4219.hs (limited to 'specification/src/Text/Edifact/D96A/Simples/S4219.hs') diff --git a/specification/src/Text/Edifact/D96A/Simples/S4219.hs b/specification/src/Text/Edifact/D96A/Simples/S4219.hs new file mode 100644 index 0000000..167406e --- /dev/null +++ b/specification/src/Text/Edifact/D96A/Simples/S4219.hs @@ -0,0 +1,36 @@ +{-# LANGUAGE OverloadedStrings #-} + +---- Machine generated code. +---- Output of edi-parser-scaffolder + +module Text.Edifact.D96A.Simples.S4219 + ( simple4219 + ) where + +import Text.Edifact.Parsing +import Text.Edifact.Types (Value) + +-- | Derived from this specification: +-- +-- > 4219 Transport priority, coded +-- > +-- > Desc: Coded priority of requested transport service. +-- > +-- > Repr: an..3 +-- > +-- > 1 Express +-- > Express treatment (if by rail, legal express regime for +-- > parcels transport). +-- > 2 High speed +-- > Transport under legal international rail convention (CIM) +-- > concluded between rail organizations and based on fast +-- > routing and specified timetables. +-- > 3 Normal speed +-- > Transport under legal international rail convention (CIM) +-- > concluded between rail organizations. +-- > 4 Post service +-- > Transport under conditions specified by UPU (Universal +-- > Postal Union) and Rail organizations (parcels transport +-- > only). +simple4219 :: Parser Value +simple4219 = simple "4219" (alphaNumeric `upTo` 3) -- cgit v1.2.3