1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Simples.S4453
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 4453 Text function, coded
17 -- > Desc: Code specifying how to handle the text.
21 -- > 1 Text for subsequent use
22 -- > The occurrence of this text does not affect message
24 -- > 2 Text replacing missing code
25 -- > Text description of a coded data item for which there is
26 -- > no currently available code.
27 -- > 3 Text for immediate use
28 -- > Text must be read before actioning message.
29 -- > 4 No action required
30 -- > Pass text on to later recipient.
31 simple4453 :: Parser Value
32 simple4453 = simple "4453" (alphaNumeric `upTo` 3)