@@ -21,9 +21,8 @@ import Text.Parsing.Parser.Token
21
21
-- ---------------------------------------------------------
22
22
23
23
-- | This is a minimal token definition for Haskell style languages. It
24
- -- defines the style of comments, valid identifiers and case
25
- -- sensitivity. It does not define any reserved words or operators.
26
-
24
+ -- | defines the style of comments, valid identifiers and case
25
+ -- | sensitivity. It does not define any reserved words or operators.
27
26
haskellStyle :: LanguageDef
28
27
haskellStyle = LanguageDef (unGenLanguageDef emptyDef)
29
28
{ commentStart = " {-"
@@ -43,9 +42,8 @@ haskellStyle = LanguageDef (unGenLanguageDef emptyDef)
43
42
op' = oneOf [' :' , ' !' , ' #' , ' $' , ' %' , ' &' , ' *' , ' +' , ' .' , ' /' , ' <' , ' =' , ' >' , ' ?' , ' @' , ' \\ ' , ' ^' , ' |' , ' -' , ' ~' ]
44
43
45
44
-- | This is a minimal token definition for Java style languages. It
46
- -- defines the style of comments, valid identifiers and case
47
- -- sensitivity. It does not define any reserved words or operators.
48
-
45
+ -- | defines the style of comments, valid identifiers and case
46
+ -- | sensitivity. It does not define any reserved words or operators.
49
47
javaStyle :: LanguageDef
50
48
javaStyle = LanguageDef (unGenLanguageDef emptyDef)
51
49
{ commentStart = " /*"
@@ -64,10 +62,9 @@ javaStyle = LanguageDef (unGenLanguageDef emptyDef)
64
62
-- ------------------------------------------------------
65
63
66
64
-- | This is the most minimal token definition. It is recommended to use
67
- -- this definition as the basis for other definitions. `emptyDef` has
68
- -- no reserved names or operators, is case sensitive and doesn't accept
69
- -- comments, identifiers or operators.
70
-
65
+ -- | this definition as the basis for other definitions. `emptyDef` has
66
+ -- | no reserved names or operators, is case sensitive and doesn't accept
67
+ -- | comments, identifiers or operators.
71
68
emptyDef :: LanguageDef
72
69
emptyDef = LanguageDef
73
70
{ commentStart: " "
@@ -90,13 +87,11 @@ emptyDef = LanguageDef
90
87
-- -- Haskell
91
88
-- -----------------------------------------------------------
92
89
93
- -- -- | A lexer for the haskell language.
94
-
90
+ -- | A lexer for the haskell language.
95
91
haskell :: TokenParser
96
92
haskell = makeTokenParser haskellDef
97
93
98
- -- -- | The language definition for the Haskell language.
99
-
94
+ -- | The language definition for the Haskell language.
100
95
haskellDef :: LanguageDef
101
96
haskellDef =
102
97
case haskell98Def of
@@ -109,8 +104,7 @@ haskellDef =
109
104
]
110
105
}
111
106
112
- -- -- | The language definition for the language Haskell98.
113
-
107
+ -- | The language definition for the language Haskell98.
114
108
haskell98Def :: LanguageDef
115
109
haskell98Def = LanguageDef (unGenLanguageDef haskellStyle)
116
110
{ reservedOpNames = [" ::" ," .." ," =" ," \\ " ," |" ," <-" ," ->" ," @" ," ~" ," =>" ]
0 commit comments