diff options
Diffstat (limited to 'compiler/parser')
| -rw-r--r-- | compiler/parser/Lexer.x | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x index e40f7b2f11..63c8474b0e 100644 --- a/compiler/parser/Lexer.x +++ b/compiler/parser/Lexer.x @@ -1960,7 +1960,7 @@ mkPState flags buf loc = addWarning :: WarningFlag -> SrcSpan -> SDoc -> P () addWarning option srcspan warning = P $ \s@PState{messages=(ws,es), dflags=d} -> - let warning' = mkWarnMsg srcspan alwaysQualify warning + let warning' = mkWarnMsg d srcspan alwaysQualify warning ws' = if wopt option d then ws `snocBag` warning' else ws in POk s{messages=(ws', es)} () |