1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Simples.S8339
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 8339 Packing group, coded
17 -- > Desc: Identification of a packing group by code.
22 -- > Packaging meeting criteria to pack hazardous materials
23 -- > with great danger. Group I according to IATA/IMDG/ADR/RID
26 -- > Packaging meeting criteria to pack hazardous materials
27 -- > with great danger. Group II according to
28 -- > IATA/IDMG/ADR/RID regulations.
30 -- > Packaging meeting criteria to pack hazardous materials
31 -- > with great danger. Group III according to
32 -- > IATA/IDMG/ADR/RID regulations.
33 simple8339 :: Parser Value
34 simple8339 = simple "8339" (alphaNumeric `upTo` 3)