diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-12 12:22:51 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-12 12:22:51 +0100 |
| commit | 1bb4428cbc194cb959166fc8e12d0edd140e3796 (patch) | |
| tree | e28b7f49a36830663c36e7fefbbb094a72cfbfe1 | |
| parent | fea67bc512433dfb042d262a3d86170190a2ddb1 (diff) | |
| download | haskell-1bb4428cbc194cb959166fc8e12d0edd140e3796.tar.gz | |
Remove the Show Var instance
| -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 |