projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4e6f670
)
[project @ 2000-04-05 13:56:30 by panne]
author
panne
<unknown>
Wed, 5 Apr 2000 13:56:30 +0000
(13:56 +0000)
committer
panne
<unknown>
Wed, 5 Apr 2000 13:56:30 +0000
(13:56 +0000)
Ooops, forgot that one in my previous commit (don't mention
HsFalse/HsTrue anymore).
ghc/compiler/deSugar/DsCCall.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/deSugar/DsCCall.lhs
b/ghc/compiler/deSugar/DsCCall.lhs
index
030f98a
..
f5fa47f
100644
(file)
--- a/
ghc/compiler/deSugar/DsCCall.lhs
+++ b/
ghc/compiler/deSugar/DsCCall.lhs
@@
-179,7
+179,7
@@
unboxArg arg
\ body -> Case arg case_bndr [(DataAlt box_data_con,[prim_arg],body)]
)
- -- Booleans; Hacking alert: the 0/1 literals should match the HsFalse/HsTrue constants
+ -- Booleans
| arg_ty == boolTy
= newSysLocalDs intPrimTy `thenDs` \ prim_arg ->
returnDs (Var prim_arg,