Commit 1bb4428c authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Remove the Show Var instance

parent fea67bc5
...@@ -231,9 +231,6 @@ ppr_id_scope GlobalId = ptext (sLit "gid") ...@@ -231,9 +231,6 @@ ppr_id_scope GlobalId = ptext (sLit "gid")
ppr_id_scope (LocalId Exported) = ptext (sLit "lidx") ppr_id_scope (LocalId Exported) = ptext (sLit "lidx")
ppr_id_scope (LocalId NotExported) = ptext (sLit "lid") ppr_id_scope (LocalId NotExported) = ptext (sLit "lid")
instance Show Var where
showsPrec p var = showsPrecSDoc p (ppr var)
instance NamedThing Var where instance NamedThing Var where
getName = varName getName = varName
......
...@@ -264,7 +264,7 @@ vectTopBinder var inline expr ...@@ -264,7 +264,7 @@ vectTopBinder var inline expr
Just (vdty, _) Just (vdty, _)
| eqType vty vdty -> return () | eqType vty vdty -> return ()
| otherwise -> | 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 "Expected type" <+> ppr vty)
$$ $$
(text "Inferred type" <+> ppr vdty) (text "Inferred type" <+> ppr vdty)
...@@ -352,7 +352,7 @@ vectTopRhs recFs var expr ...@@ -352,7 +352,7 @@ vectTopRhs recFs var expr
; vectDecl <- lookupVectDecl var ; vectDecl <- lookupVectDecl var
; let isDFun = isDFunId 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 ppr expr
; rhs globalScalar isDFun vectDecl ; rhs globalScalar isDFun vectDecl
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment