From b62923382881b6a6b5cdbe65f8db1f75fa8c495c Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Thu, 28 May 2009 09:27:50 +0000
Subject: [PATCH] Remove dead code isHsVar

---
 compiler/typecheck/Inst.lhs |    6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/compiler/typecheck/Inst.lhs b/compiler/typecheck/Inst.lhs
index 2e08113..05762a2 100644
--- a/compiler/typecheck/Inst.lhs
+++ b/compiler/typecheck/Inst.lhs
@@ -20,7 +20,7 @@ module Inst (
 	cloneDict, mkOverLit,
 	newIPDict, newMethod, newMethodFromName, newMethodWithGivenTy, 
 	tcInstClassOp, 
-	tcSyntaxName, isHsVar,
+	tcSyntaxName, 
 
 	tyVarsOfInst, tyVarsOfInsts, tyVarsOfLIE, tcTyVarsOfInst,
 	tcTyVarsOfInsts, ipNamesOfInst, ipNamesOfInsts, fdPredsOfInst,
@@ -570,10 +570,6 @@ mkOverLit (HsFractional r)
 	; return (HsRat r rat_ty) }
 
 mkOverLit (HsIsString s) = return (HsString s)
-
-isHsVar :: HsExpr Name -> Name -> Bool
-isHsVar (HsVar f) g = f == g
-isHsVar _     	  _ = False
 \end{code}
 
 
-- 
1.7.10.4