[project @ 2002-09-19 13:22:07 by simonmar]

[ghc-hetmet.git] / ghc / compiler / prelude / PrelInfo.lhs

diff --git a/ghc/compiler/prelude/PrelInfo.lhs b/ghc/compiler/prelude/PrelInfo.lhs
index 450dea5..76c8f6d 100644 (file)
--- a/ghc/compiler/prelude/PrelInfo.lhs
+++ b/ghc/compiler/prelude/PrelInfo.lhs
@@ -11,7 +11,7 @@ module PrelInfo (
        wiredInThings,  -- Names of wired in things
        wiredInThingEnv,
        ghcPrimExports,
-       cCallableClassDecl, cReturnableClassDecl, assertDecl,
+       cCallableClassDecl, cReturnableClassDecl,
        
        -- Random other things
        maybeCharLikeCon, maybeIntLikeCon,
@@ -103,14 +103,6 @@ ghcPrimExports :: [RdrAvailInfo]
    cCallableOcc = nameOccName cCallableClassName
    cReturnableOcc = nameOccName cReturnableClassName
 
-assertDecl
-  = IfaceSig { 
-       tcdName = getRdrName assertName,
-       tcdType = HsForAllTy (Just [liftedAlpha]) [] (HsTyVar alpha),
-       tcdIdInfo = [],
-       tcdLoc = noSrcLoc
-    }
-
 cCallableClassDecl
   = mkClassDecl
     ([], getRdrName cCallableClassName, [openAlpha])