projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Allow the old [$foo| ... |] syntax for quasi-quotes
[ghc-hetmet.git]
/
compiler
/
prelude
/
PrelInfo.lhs
diff --git
a/compiler/prelude/PrelInfo.lhs
b/compiler/prelude/PrelInfo.lhs
index
1dcf2b8
..
48981b3
100644
(file)
--- a/
compiler/prelude/PrelInfo.lhs
+++ b/
compiler/prelude/PrelInfo.lhs
@@
-4,15
+4,9
@@
\section[PrelInfo]{The @PrelInfo@ interface to the compiler's prelude knowledge}
\begin{code}
\section[PrelInfo]{The @PrelInfo@ interface to the compiler's prelude knowledge}
\begin{code}
-{-# OPTIONS_GHC -w #-}
--- The above warning supression flag is a temporary kludge.
--- While working on this module you are encouraged to remove it and fix
--- any warnings in the module. See
--- http://hackage.haskell.org/trac/ghc/wiki/WorkingConventions#Warnings
--- for details
-
module PrelInfo (
module PrelInfo (
- module MkId,
+ wiredInIds, ghcPrimIds,
+ primOpRules, builtinRules,
ghcPrimExports,
wiredInThings, basicKnownKeyNames,
ghcPrimExports,
wiredInThings, basicKnownKeyNames,
@@
-31,7
+25,7
@@
module PrelInfo (
import PrelNames ( basicKnownKeyNames,
hasKey, charDataConKey, intDataConKey,
numericClassKeys, standardClassKeys )
import PrelNames ( basicKnownKeyNames,
hasKey, charDataConKey, intDataConKey,
numericClassKeys, standardClassKeys )
-
+import PrelRules
import PrimOp ( PrimOp, allThePrimOps, primOpOcc, primOpTag, maxPrimOpTag )
import DataCon ( DataCon )
import Id ( Id, idName )
import PrimOp ( PrimOp, allThePrimOps, primOpOcc, primOpTag, maxPrimOpTag )
import DataCon ( DataCon )
import Id ( Id, idName )
@@
-45,7
+39,7
@@
import Type ( funTyCon )
import TyCon ( tyConName )
import Util ( isIn )
import TyCon ( tyConName )
import Util ( isIn )
-import Array ( Array, array, (!) )
+import Data.Array
\end{code}
%************************************************************************
\end{code}
%************************************************************************
@@
-56,7
+50,7
@@
import Array ( Array, array, (!) )
Notes about wired in things
~~~~~~~~~~~~~~~~~~~~~~~~~~~
Notes about wired in things
~~~~~~~~~~~~~~~~~~~~~~~~~~~
-* Wired-in things are Ids/TyCons that are completely known to the compiler.
+* Wired-in things are Ids\/TyCons that are completely known to the compiler.
They are global values in GHC, (e.g. listTyCon :: TyCon).
* A wired in Name contains the thing itself inside the Name:
They are global values in GHC, (e.g. listTyCon :: TyCon).
* A wired in Name contains the thing itself inside the Name:
@@
-160,5
+154,7
@@
isNumericClass, isStandardClass :: Class -> Bool
isNumericClass clas = classKey clas `is_elem` numericClassKeys
isStandardClass clas = classKey clas `is_elem` standardClassKeys
isNumericClass clas = classKey clas `is_elem` numericClassKeys
isStandardClass clas = classKey clas `is_elem` standardClassKeys
+
+is_elem :: Eq a => a -> [a] -> Bool
is_elem = isIn "is_X_Class"
\end{code}
is_elem = isIn "is_X_Class"
\end{code}