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:
ffa600f
)
Fix a warning when DEBUG is not on
author
Ian Lynagh
<igloo@earth.li>
Sat, 10 May 2008 22:03:29 +0000
(22:03 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sat, 10 May 2008 22:03:29 +0000
(22:03 +0000)
compiler/typecheck/Inst.lhs
patch
|
blob
|
history
diff --git
a/compiler/typecheck/Inst.lhs
b/compiler/typecheck/Inst.lhs
index
2170d4f
..
45e8d8d
100644
(file)
--- a/
compiler/typecheck/Inst.lhs
+++ b/
compiler/typecheck/Inst.lhs
@@
-758,9
+758,7
@@
lookupSimpleInst (Method {tci_oid = id, tci_tys = tys, tci_theta = theta, tci_lo
lookupSimpleInst (LitInst { tci_lit = lit@OverLit { ol_val = lit_val
, ol_rebindable = rebindable }
, tci_ty = ty, tci_loc = iloc})
lookupSimpleInst (LitInst { tci_lit = lit@OverLit { ol_val = lit_val
, ol_rebindable = rebindable }
, tci_ty = ty, tci_loc = iloc})
-#ifdef DEBUG
- | rebindable = panic "lookupSimpleInst" -- A LitInst invariant
-#endif
+ | debugIsOn && rebindable = panic "lookupSimpleInst" -- A LitInst invariant
| Just witness <- shortCutLit lit_val ty
= do { let lit' = lit { ol_witness = witness, ol_type = ty }
; return (GenInst [] (L loc (HsOverLit lit'))) }
| Just witness <- shortCutLit lit_val ty
= do { let lit' = lit { ol_witness = witness, ol_type = ty }
; return (GenInst [] (L loc (HsOverLit lit'))) }