1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Simples.S7077
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > * 7077 Item description type, coded
17 -- > Desc: Code indicating the format of a description.
21 -- > + A Free-form long description
22 -- > Long description of an item in free form.
24 -- > Self explanatory.
25 -- > C Code (from industry code list)
26 -- > Self explanatory.
27 -- > + D Free-form price look up
28 -- > Price look-up description of a product for point of sale
30 -- > + E Free-form short description
31 -- > Short description of an item in free form.
33 -- > Self explanatory.
34 -- > S Structured (from industry code list)
35 -- > Self explanatory.
36 -- > X Semi-structured (code + text)
37 -- > Self explanatory.
38 simple7077 :: Parser Value
39 simple7077 = simple "7077" (alphaNumeric `upTo` 3)