From 47edb6571ef2480c6b307182eb617ffdca5fd304 Mon Sep 17 00:00:00 2001 From: simonpj Date: Tue, 18 Feb 2003 15:54:42 +0000 Subject: [PATCH] [project @ 2003-02-18 15:54:42 by simonpj] Remove un-necessary case --- ghc/compiler/specialise/Specialise.lhs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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 -- 1.7.10.4