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