1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D01B.Simples.S4219
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 4219 Transport service priority code [B]
17 -- > Desc: Code specifying the priority of a transport service.
22 -- > Express treatment (if by rail, legal express regime for
23 -- > parcels transport).
26 -- > Transport under legal international rail convention
27 -- > (CIM) concluded between rail organizations and based on
28 -- > fast routing and specified timetables.
31 -- > Transport under legal international rail convention
32 -- > (CIM) concluded between rail organizations.
35 -- > Transport under conditions specified by UPU (Universal
36 -- > Postal Union) and Rail organizations (parcels transport
38 simple4219 :: Parser Value
39 simple4219 = simple "4219" (alphaNumeric `upTo` 3)