projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1996-07-25 20:43:49 by partain]
[ghc-hetmet.git]
/
ghc
/
compiler
/
specialise
/
Specialise.lhs
diff --git
a/ghc/compiler/specialise/Specialise.lhs
b/ghc/compiler/specialise/Specialise.lhs
index
424bcad
..
8164e0c
100644
(file)
--- a/
ghc/compiler/specialise/Specialise.lhs
+++ b/
ghc/compiler/specialise/Specialise.lhs
@@
-1531,7
+1531,8
@@
specAlts (AlgAlts alts deflt) scrutinee_ty args
-- We use ty_args of scrutinee type to identify specialisation of
-- alternatives:
-- We use ty_args of scrutinee type to identify specialisation of
-- alternatives:
- (_, ty_args, _) = getAppDataTyConExpandingDicts scrutinee_ty
+ (_, ty_args, _) = --trace "Specialise.specAlts:getAppData..." $
+ getAppDataTyConExpandingDicts scrutinee_ty
specAlgAlt ty_args (con,binders,rhs)
= specLambdaOrCaseBody binders rhs args `thenSM` \ (binders, rhs, rhs_uds) ->
specAlgAlt ty_args (con,binders,rhs)
= specLambdaOrCaseBody binders rhs args `thenSM` \ (binders, rhs, rhs_uds) ->