From fff1f6194c3c39de53cd645bda9865fb131b1c68 Mon Sep 17 00:00:00 2001 From: Ben Lippmeier Date: Fri, 26 Nov 2010 04:29:50 +0000 Subject: [PATCH] vectoriser: fix warning --- compiler/vectorise/Vectorise/Type/PADict.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/compiler/vectorise/Vectorise/Type/PADict.hs b/compiler/vectorise/Vectorise/Type/PADict.hs index a15f671..6c94ae0 100644 --- a/compiler/vectorise/Vectorise/Type/PADict.hs +++ b/compiler/vectorise/Vectorise/Type/PADict.hs @@ -54,7 +54,6 @@ buildPADict vect_tc prepr_tc arr_tc repr -- Build the type of the dictionary function. pa_tc <- builtin paTyCon - let pa_opitems = [(id, NoDefMeth) | id <- method_ids] let Just pa_cls = tyConClass_maybe pa_tc let dfun_ty = mkForAllTys tvs -- 1.7.10.4