specification/src/Text/Edifact/D01B/Simples/S4453.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.Simples.S4453
   7   ( simple4453
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- >      4453  Free text function code                                 [B]
  16 -- >
  17 -- >      Desc: Code specifying the function of free text.
  18 -- >
  19 -- >      Repr: an..3
  20 -- >
  21 -- >      1     Text for subsequent use
  22 -- >               The occurrence of this text does not affect message
  23 -- >               processing.
  24 -- >
  25 -- >      2     Text replacing missing code
  26 -- >               Text description of a coded data item for which there is
  27 -- >               no currently available code.
  28 -- >
  29 -- >      3     Text for immediate use
  30 -- >               Text must be read before actioning message.
  31 -- >
  32 -- >      4     No action required
  33 -- >               Pass text on to later recipient.
  34 -- >
  35 -- >      5     Header
  36 -- >               Indicates that the text is to be taken as a header.
  37 -- >
  38 -- >      6     Numbered paragraph
  39 -- >               Indicates that the text starts a new numbered paragraph.
  40 -- >
  41 -- >      7     Paragraph
  42 -- >               Indicates that the text is a paragraph.
  43 simple4453 :: Parser Value
  44 simple4453 = simple "4453" (alphaNumeric `upTo` 3)