diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-09-05 09:38:50 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-09-05 09:38:50 +0100 |
| commit | 8595c61cfae514bc9582d4447ccca5db5a201133 (patch) | |
| tree | c27b710cf1cceb07a3679e07a71255dfd3df7c16 /compiler/stgSyn | |
| parent | 69ecb07c635336b25fa4fc068424d4343db85549 (diff) | |
| download | haskell-8595c61cfae514bc9582d4447ccca5db5a201133.tar.gz | |
Eliminate isHiBootTyCon in favour of isAbstractTyCon
Fixes Trac #5456, which was a buglet arising from
commit de9b85fa3fb6d4cd593366e1f2383cd0b492c056
Author: Simon Peyton Jones <simonpj@microsoft.com>
Date: Fri Sep 2 17:43:53 2011 +0100
Export a tiny bit more info with AbstractTyCon (fixes #5424)
It only shows up when compiling with -O0!
Diffstat (limited to 'compiler/stgSyn')
| -rw-r--r-- | compiler/stgSyn/CoreToStg.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/stgSyn/CoreToStg.lhs b/compiler/stgSyn/CoreToStg.lhs index 9d555f12c5..bd4e0ae6bd 100644 --- a/compiler/stgSyn/CoreToStg.lhs +++ b/compiler/stgSyn/CoreToStg.lhs @@ -436,7 +436,7 @@ mkStgAltType bndr alts = case tyConAppTyCon_maybe (repType (idType bndr)) of Just tc | isUnboxedTupleTyCon tc -> UbxTupAlt tc | isUnLiftedTyCon tc -> PrimAlt tc - | isHiBootTyCon tc -> look_for_better_tycon + | isAbstractTyCon tc -> look_for_better_tycon | isAlgTyCon tc -> AlgAlt tc | otherwise -> ASSERT2( _is_poly_alt_tycon tc, ppr tc ) PolyAlt @@ -450,8 +450,8 @@ mkStgAltType bndr alts -- function application where argument has a -- type-family type - -- Sometimes, the TyCon is a HiBootTyCon which may not have any - -- constructors inside it. Then we can get a better TyCon by + -- Sometimes, the TyCon is a AbstractTyCon which may not have any + -- constructors inside it. Then we may get a better TyCon by -- grabbing the one from a constructor alternative -- if one exists. look_for_better_tycon |