1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Simples.S9303
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 9303 Sealing party, coded
17 -- > Desc: Identification of the issuer of the seal number.
22 -- > Party undertaking or arranging transport of goods between
25 -- > Self explanatory.
27 -- > Party which, by contract with a carrier, consigns or
28 -- > sends goods with the carrier, or has them conveyed by
30 -- > TO Terminal operator
31 -- > Party which handles the loading and unloading of marine
33 simple9303 :: Parser Value
34 simple9303 = simple "9303" (alphaNumeric `upTo` 3)