diff options
| author | simonpj@microsoft.com <unknown> | 2008-02-22 18:26:46 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2008-02-22 18:26:46 +0000 |
| commit | d19a72ea089deab3aa4bb584e69c102daebb1cb4 (patch) | |
| tree | eb191a4c8d3e34e7a23c22d47567ebb57b1c2c5b /compiler/parser/Lexer.x | |
| parent | f59d6c9d6ead47a61681b1086b313c2fad225912 (diff) | |
| download | haskell-d19a72ea089deab3aa4bb584e69c102daebb1cb4.tar.gz | |
Fix Trac #2114: error reporting for 'forall' without appropriate flags
Diffstat (limited to 'compiler/parser/Lexer.x')
| -rw-r--r-- | compiler/parser/Lexer.x | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x index 1692904223..4042a9c518 100644 --- a/compiler/parser/Lexer.x +++ b/compiler/parser/Lexer.x @@ -1435,8 +1435,8 @@ failMsgP msg = P $ \s -> PFailed (last_loc s) (text msg) failLocMsgP :: SrcLoc -> SrcLoc -> String -> P a failLocMsgP loc1 loc2 str = P $ \_ -> PFailed (mkSrcSpan loc1 loc2) (text str) -failSpanMsgP :: SrcSpan -> String -> P a -failSpanMsgP span msg = P $ \_ -> PFailed span (text msg) +failSpanMsgP :: SrcSpan -> SDoc -> P a +failSpanMsgP span msg = P $ \_ -> PFailed span msg extension :: (Int -> Bool) -> P Bool extension p = P $ \s -> POk s (p $! extsBitmap s) |