From: simonpj <unknown>
Date: Tue, 18 Feb 2003 15:54:42 +0000 (+0000)
Subject: [project @ 2003-02-18 15:54:42 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1146
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=47edb6571ef2480c6b307182eb617ffdca5fd304;p=ghc-hetmet.git

[project @ 2003-02-18 15:54:42 by simonpj]
Remove un-necessary case
---

diff --git a/ghc/compiler/specialise/Specialise.lhs b/ghc/compiler/specialise/Specialise.lhs
index ae61e15..006e06d 100644
--- a/ghc/compiler/specialise/Specialise.lhs
+++ b/ghc/compiler/specialise/Specialise.lhs
@@ -9,7 +9,7 @@ module Specialise ( specProgram ) where
 #include "HsVersions.h"
 
 import CmdLineOpts	( DynFlags, DynFlag(..) )
-import Id		( Id, idName, idType, mkUserLocal, isDataConWrapId )
+import Id		( Id, idName, idType, mkUserLocal ) 
 import TcType		( Type, mkTyVarTy, tcSplitSigmaTy, 
 			  tyVarsOfTypes, tyVarsOfTheta, isClassPred,
 			  mkForAllTys, tcCmpType
@@ -787,8 +787,6 @@ specDefn subst calls (fn, rhs)
   |  rhs_tyvars `lengthIs` n_tyvars 	-- Rhs of fn's defn has right number of big lambdas
   && rhs_bndrs  `lengthAtLeast` n_dicts	-- and enough dict args
   && notNull calls_for_me		-- And there are some calls to specialise
-  && not (isDataConWrapId fn)		-- And it's not a data con wrapper, which have
-					-- stupid overloading that simply discard the dictionary
 
 -- At one time I tried not specialising small functions
 -- but sometimes there are big functions marked INLINE