From e71eb9f04c7edb2bec5f4eb954f8d9cfa5062be2 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 5 Mar 2001 12:18:05 +0000
Subject: [PATCH] [project @ 2001-03-05 12:18:05 by simonpj] Remove dead
 isSysOcc

---
 ghc/compiler/basicTypes/OccName.lhs |    9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

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}
-- 
1.7.10.4