From 4ebf65abcc94647be48216b8ea616c5a8d0b1fce Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 24 Aug 2011 11:58:43 +0100
Subject: eliminate ConInfo

---
 compiler/cmm/SMRep.lhs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'compiler/cmm')

diff --git a/compiler/cmm/SMRep.lhs b/compiler/cmm/SMRep.lhs
index bc502a30a3..44b40a3a8a 100644
--- a/compiler/cmm/SMRep.lhs
+++ b/compiler/cmm/SMRep.lhs
@@ -25,7 +25,7 @@ module SMRep (
         mkHeapRep, blackHoleRep, mkStackRep, mkRTSRep,
 
         -- ** Predicates
-        isStaticRep, isConRep, isThunkRep, isStaticNoCafCon,
+        isStaticRep, isConRep, isThunkRep, isFunRep, isStaticNoCafCon,
 
         -- ** Size-related things
         heapClosureSize,
@@ -196,6 +196,10 @@ isThunkRep (HeapRep _ _ _ ThunkSelector{}) = True
 isThunkRep (HeapRep _ _ _ BlackHole{})     = True
 isThunkRep _                               = False
 
+isFunRep :: SMRep -> Bool
+isFunRep (HeapRep _ _ _ Fun{}) = True
+isFunRep _                     = False
+
 isStaticNoCafCon :: SMRep -> Bool
 -- This should line up exactly with CONSTR_NOCAF_STATIC above
 -- See Note [Static NoCaf constructors]
-- 
cgit v1.2.1