diff options
| author | simonpj@microsoft.com <unknown> | 2009-05-28 09:27:50 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2009-05-28 09:27:50 +0000 |
| commit | b62923382881b6a6b5cdbe65f8db1f75fa8c495c (patch) | |
| tree | d969e784bcc519af374623265c29a28d297c0f72 /compiler | |
| parent | 44ccabe68c496078d023bacc9d99720b2df19ee6 (diff) | |
| download | haskell-b62923382881b6a6b5cdbe65f8db1f75fa8c495c.tar.gz | |
Remove dead code isHsVar
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/typecheck/Inst.lhs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/compiler/typecheck/Inst.lhs b/compiler/typecheck/Inst.lhs index 2e081130ad..05762a2d79 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} |