diff options
Diffstat (limited to 'compiler/codeGen/StgCmmClosure.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmClosure.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/codeGen/StgCmmClosure.hs b/compiler/codeGen/StgCmmClosure.hs index 8c1aeef55d..f831789454 100644 --- a/compiler/codeGen/StgCmmClosure.hs +++ b/compiler/codeGen/StgCmmClosure.hs @@ -78,6 +78,7 @@ import Type import TyCoRep import TcType import TyCon +import RepType import BasicTypes import Outputable import DynFlags @@ -286,14 +287,12 @@ mkLFImported id | otherwise = mkLFArgument id -- Not sure of exact arity where - arity = idRepArity id + arity = idFunRepArity id ----------------------------------------------------- -- Dynamic pointer tagging ----------------------------------------------------- -type ConTagZ = Int -- A *zero-indexed* constructor tag - type DynTag = Int -- The tag on a *pointer* -- (from the dynamic-tagging paper) |