From: simonpj <unknown>
Date: Mon, 5 Mar 2001 12:18:05 +0000 (+0000)
Subject: [project @ 2001-03-05 12:18:05 by simonpj]
X-Git-Tag: Approximately_9120_patches~2470
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=e71eb9f04c7edb2bec5f4eb954f8d9cfa5062be2;p=ghc-hetmet.git

[project @ 2001-03-05 12:18:05 by simonpj]
Remove dead isSysOcc
---

diff --git a/ghc/compiler/basicTypes/OccName.lhs b/ghc/compiler/basicTypes/OccName.lhs
index d14267b..95acfef 100644
--- a/ghc/compiler/basicTypes/OccName.lhs
+++ b/ghc/compiler/basicTypes/OccName.lhs
@@ -20,7 +20,7 @@ module OccName (
  	mkDerivedTyConOcc, mkClassTyConOcc, mkClassDataConOcc, mkSpecOcc,
 	mkGenOcc1, mkGenOcc2, 
 	
-	isSysOcc, isTvOcc, isDataOcc, isDataSymOcc, isSymOcc, isValOcc,
+	isTvOcc, isDataOcc, isDataSymOcc, isSymOcc, isValOcc,
 
 	occNameFS, occNameString, occNameUserString, occNameSpace, occNameFlavour, 
 	setOccNameSpace,
@@ -300,13 +300,6 @@ mkForeignExportOcc = mk_simple_deriv varName  "$f"
 mkGenOcc1           = mk_simple_deriv varName  "$gfrom"      -- Generics
 mkGenOcc2           = mk_simple_deriv varName  "$gto"        -- Generics
 mk_simple_deriv sp px occ = mk_deriv sp px (occNameString occ)
-
-
-isSysOcc ::  OccName -> Bool	-- True for all these '$' things
-isSysOcc occ = case occNameUserString occ of
-		   ('$' : _ ) -> True
-		   other      -> False	-- We don't care about the ':' ones
-					-- isSysOcc is only called for Ids anyway
 \end{code}
 
 \begin{code}