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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.Simples.S4447
   7   ( simple4447
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- >      4447  Free text format code                                   [B]
  16 -- >
  17 -- >      Desc: Code specifying the format of free text.
  18 -- >
  19 -- >      Repr: an..3
  20 -- >
  21 -- >      1     Centre
  22 -- >               The associated text is centred in the available space.
  23 -- >
  24 -- >      2     Left
  25 -- >               The associated text item is aligned flush left in the
  26 -- >               available space.
  27 -- >
  28 -- >      3     Right
  29 -- >               The associated text is aligned flush right in the
  30 -- >               available space.
  31 -- >
  32 -- >      4     Justified
  33 -- >               The associated text is justified in the available space.
  34 -- >
  35 -- >      5     Preceded by one blank line
  36 -- >               The text is to be preceded by one blank line.
  37 -- >
  38 -- >      6     Preceded by two blank lines
  39 -- >               The text is to be preceded by two blank lines.
  40 -- >
  41 -- >      7     Preceded by three blank lines
  42 -- >               The text is to be preceded by three blank lines.
  43 -- >
  44 -- >      8     Continuation
  45 -- >               The text is a continuation of preceding text.
  46 -- >
  47 -- >      9     New page
  48 -- >               The text is to begin on a new page.
  49 -- >
  50 -- >      10    End text
  51 -- >               The text is the final section of the preceding text.
  52 -- >
  53 -- >      11    New line
  54 -- >               The text is to begin a new line.
  55 simple4447 :: Parser Value
  56 simple4447 = simple "4447" (alphaNumeric `upTo` 3)