diff options
| -rw-r--r-- | compiler/basicTypes/Var.lhs | 3 | ||||
| -rw-r--r-- | compiler/vectorise/Vectorise.hs | 4 |
2 files changed, 2 insertions, 5 deletions
diff --git a/compiler/basicTypes/Var.lhs b/compiler/basicTypes/Var.lhs index af7cb35e8c..c6e743fbb3 100644 --- a/compiler/basicTypes/Var.lhs +++ b/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 diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs index 3ac9c5105f..637897d900 100644 --- a/compiler/vectorise/Vectorise.hs +++ b/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 |