X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fvectorise%2FVectMonad.hs;fp=compiler%2Fvectorise%2FVectMonad.hs;h=0ce693007b1df2e7bfe0bc8eca23ca466a249a34;hp=51e7601e37807b9cb7ddb794dd203db940d24bf3;hb=ae9408573da499e87485cc2957b15893bbc8feb5;hpb=9a0100000f820caf09e2e8f5304a6e008a614729

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