1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D01B.Simples.S8339
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 8339 Packaging danger level code [B]
17 -- > Desc: Code specifying the level of danger for which the
18 -- > packaging must cater.
23 -- > Packaging meeting criteria to pack hazardous materials
24 -- > with great danger. Group I according to
25 -- > IATA/IMDG/ADR/RID regulations.
28 -- > Packaging meeting criteria to pack hazardous materials
29 -- > with medium danger. Group II according to
30 -- > IATA/IDMG/ADR/RID regulations.
33 -- > Packaging meeting criteria to pack hazardous materials
34 -- > with minor danger. Group III according to
35 -- > IATA/IDMG/ADR/RID regulations.
36 simple8339 :: Parser Value
37 simple8339 = simple "8339" (alphaNumeric `upTo` 3)