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/prelude | |
| parent | f59d6c9d6ead47a61681b1086b313c2fad225912 (diff) | |
| download | haskell-d19a72ea089deab3aa4bb584e69c102daebb1cb4.tar.gz | |
Fix Trac #2114: error reporting for 'forall' without appropriate flags
Diffstat (limited to 'compiler/prelude')
| -rw-r--r-- | compiler/prelude/PrelNames.lhs | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/compiler/prelude/PrelNames.lhs b/compiler/prelude/PrelNames.lhs index bffd07c7d4..8f06f504a5 100644 --- a/compiler/prelude/PrelNames.lhs +++ b/compiler/prelude/PrelNames.lhs @@ -57,8 +57,8 @@ module PrelNames ( #include "HsVersions.h" import Module -import OccName ( dataName, tcName, clsName, varName, mkOccNameFS, - mkVarOccFS ) +import OccName ( dataName, tcName, clsName, varName, tvName, + mkOccNameFS, mkVarOccFS ) import RdrName ( RdrName, nameRdrName, mkOrig, rdrNameOcc, mkUnqual ) import Unique ( Unique, Uniquable(..), hasKey, mkPreludeMiscIdUnique, mkPreludeDataConUnique, @@ -322,10 +322,14 @@ mkTupleModule Unboxed _ = gHC_PRIM %************************************************************************ \begin{code} -main_RDR_Unqual = mkUnqual varName FSLIT("main") +main_RDR_Unqual = mkUnqual varName FSLIT("main") -- We definitely don't want an Orig RdrName, because -- main might, in principle, be imported into module Main +forall_tv_RDR, dot_tv_RDR :: RdrName +forall_tv_RDR = mkUnqual tvName FSLIT("forall") +dot_tv_RDR = mkUnqual tvName FSLIT(".") + eq_RDR = nameRdrName eqName ge_RDR = nameRdrName geName ne_RDR = varQual_RDR gHC_BASE FSLIT("/=") |