Skip to content
GitLab
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
ea145221
Commit
ea145221
authored
Mar 06, 2009
by
rl@cse.unsw.edu.au
Browse files
Fix warning
parent
28bb3c3c
Changes
2
Hide whitespace changes
Inline
Side-by-side
compiler/vectorise/VectMonad.hs
View file @
ea145221
...
...
@@ -252,7 +252,7 @@ onlyIfV b p = ensureV b >> p
traceEnsureV
::
String
->
SDoc
->
Bool
->
VM
()
traceEnsureV
s
d
False
=
traceNoV
s
d
traceEnsureV
s
d
True
=
return
()
traceEnsureV
_
_
True
=
return
()
tryV
::
VM
a
->
VM
(
Maybe
a
)
tryV
(
VM
p
)
=
VM
$
\
bi
genv
lenv
->
...
...
compiler/vectorise/Vectorise.hs
View file @
ea145221
...
...
@@ -298,7 +298,7 @@ vectScalarLam args body
|
otherwise
=
False
is_scalar
vs
(
Var
v
)
=
v
`
elemVarSet
`
vs
is_scalar
_
e
@
(
Lit
l
)
=
is_scalar_ty
$
exprType
e
is_scalar
_
e
@
(
Lit
_
)
=
is_scalar_ty
$
exprType
e
is_scalar
vs
(
App
e1
e2
)
=
is_scalar
vs
e1
&&
is_scalar
vs
e2
is_scalar
_
_
=
False
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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