diff options
Diffstat (limited to 'compiler/parser/Lexer.x')
| -rw-r--r-- | compiler/parser/Lexer.x | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x index 6c4abe047a..63715a08a8 100644 --- a/compiler/parser/Lexer.x +++ b/compiler/parser/Lexer.x @@ -636,6 +636,7 @@ data Token | ITunpack_prag SourceText | ITnounpack_prag SourceText | ITann_prag SourceText + | ITcomplete_prag SourceText | ITclose_prag | IToptions_prag String | ITinclude_prag String @@ -2716,7 +2717,7 @@ ignoredPrags = Map.fromList (map ignored pragmas) -- CFILES is a hugs-only thing. pragmas = options_pragmas ++ ["cfiles", "contract"] -oneWordPrags = Map.fromList([ +oneWordPrags = Map.fromList [ ("rules", rulePrag), ("inline", strtoken (\s -> (ITinline_prag (SourceText s) Inline FunLike))), @@ -2744,7 +2745,9 @@ oneWordPrags = Map.fromList([ ("overlappable", strtoken (\s -> IToverlappable_prag (SourceText s))), ("overlapping", strtoken (\s -> IToverlapping_prag (SourceText s))), ("incoherent", strtoken (\s -> ITincoherent_prag (SourceText s))), - ("ctype", strtoken (\s -> ITctype (SourceText s)))]) + ("ctype", strtoken (\s -> ITctype (SourceText s))), + ("complete", strtoken (\s -> ITcomplete_prag (SourceText s))) + ] twoWordPrags = Map.fromList([ ("inline conlike", |