From: Ben Lippmeier <benl@ouroborus.net>
Date: Fri, 26 Nov 2010 04:29:50 +0000 (+0000)
Subject: vectoriser: fix warning
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=fff1f6194c3c39de53cd645bda9865fb131b1c68;ds=sidebyside

vectoriser: fix warning
---

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