Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
1bb4428c
Commit
1bb4428c
authored
Jun 12, 2012
by
Ian Lynagh
Browse files
Remove the Show Var instance
parent
fea67bc5
Changes
2
Hide whitespace changes
Inline
Side-by-side
compiler/basicTypes/Var.lhs
View file @
1bb4428c
...
...
@@ -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
View file @
1bb4428c
...
...
@@ -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 "
++
show
SDoc
(
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 "
++
show
SDoc
(
ppr
var
)
++
info
globalScalar
isDFun
vectDecl
++
":"
)
$
ppr
expr
;
rhs
globalScalar
isDFun
vectDecl
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment