[project @ 1996-01-11 14:06:51 by partain]

[ghc-hetmet.git] / ghc / compiler / basicTypes / NameTypes.lhs

diff --git a/ghc/compiler/basicTypes/NameTypes.lhs b/ghc/compiler/basicTypes/NameTypes.lhs
index dee7c44..6b8ce70 100644 (file)
--- a/ghc/compiler/basicTypes/NameTypes.lhs
+++ b/ghc/compiler/basicTypes/NameTypes.lhs
@@ -205,7 +205,7 @@ instance NamedThing ShortName where
     getOrigName (ShortName s l)       = (panic "NamedThing.ShortName.getOrigName", s)
     getOccurrenceName (ShortName s l) = s
     getSrcLoc  (ShortName s l)       = l
-    fromPreludeCore (ShortName _ _)   = False
+    fromPreludeCore _                = False
 #ifdef DEBUG
     getTheUnique (ShortName s l)      = panic "NamedThing.ShortName.getTheUnique" 
     getInformingModules a            = panic "NamedThing.ShortName.getInformingModule"