Remove the Show Var instance

compiler/basicTypes/Var.lhs

@@ -231,9 +231,6 @@ ppr_id_scope GlobalId              = ptext (sLit "gid")
 ppr_id_scope (LocalId Exported)    = ptext (sLit "lidx")
 ppr_id_scope (LocalId NotExported) = ptext (sLit "lid")
 
-instance Show Var where
-  showsPrec p var = showsPrecSDoc p (ppr var)
-
 instance NamedThing Var where
   getName = varName
 

compiler/vectorise/Vectorise.hs

@@ -264,7 +264,7 @@ vectTopBinder var inline expr
           Just (vdty, _) 
             | eqType vty vdty -> return ()
             | otherwise       -> 
-              cantVectorise ("Type mismatch in vectorisation pragma for " ++ show var) $
+              cantVectorise ("Type mismatch in vectorisation pragma for " ++ showSDoc (ppr var)) $
                 (text "Expected type" <+> ppr vty)
                 $$
                 (text "Inferred type" <+> ppr vdty)
@@ -352,7 +352,7 @@ vectTopRhs recFs var expr
        ; vectDecl     <- lookupVectDecl var
        ; let isDFun = isDFunId var
 
-       ; traceVt ("vectTopRhs of " ++ show var ++ info globalScalar isDFun vectDecl ++ ":") $ 
+       ; traceVt ("vectTopRhs of " ++ showSDoc (ppr var) ++ info globalScalar isDFun vectDecl ++ ":") $ 
            ppr expr
 
        ; rhs globalScalar isDFun vectDecl