1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D01B.Simples.S7511
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 7511 Marking type code [B]
17 -- > Desc: Code specifying the type of marking.
21 -- > 1 Not marked with an EAN.UCC system code
22 -- > Indication that the package is not marked with an
23 -- > EAN.UCC (International Article Numbering.Uniform Code
24 -- > Council) system code.
25 simple7511 :: Parser Value
26 simple7511 = simple "7511" (alphaNumeric `upTo` 3)