From: benl@ouroborus.net <unknown>
Date: Mon, 30 Aug 2010 04:03:40 +0000 (+0000)
Subject: Fix warnings
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=ae9408573da499e87485cc2957b15893bbc8feb5

Fix warnings
---

diff --git a/compiler/vectorise/VectMonad.hs b/compiler/vectorise/VectMonad.hs
index 51e7601..0ce6930 100644
--- a/compiler/vectorise/VectMonad.hs
+++ b/compiler/vectorise/VectMonad.hs
@@ -474,7 +474,7 @@ maybeCantVectoriseVarM v p
 
 dumpVar :: Var -> a
 dumpVar var
-	| Just cls		<- isClassOpId_maybe var
+	| Just _		<- isClassOpId_maybe var
 	= cantVectorise "ClassOpId not vectorised:" (ppr var)
 
 	| otherwise