From: Ian Lynagh <igloo@earth.li>
Date: Sat, 7 Feb 2009 00:58:34 +0000 (+0000)
Subject: Correct an IsFunction that should be IsData
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=a7d8074da3f326da718d1057d1b3337210ba34a8

Correct an IsFunction that should be IsData
---

diff --git a/compiler/cmm/CmmParse.y b/compiler/cmm/CmmParse.y
index e488a66..1030895 100644
--- a/compiler/cmm/CmmParse.y
+++ b/compiler/cmm/CmmParse.y
@@ -203,7 +203,7 @@ static 	:: { ExtFCode [CmmStatic] }
 	| 'CLOSURE' '(' NAME lits ')'
 		{ do lits <- sequence $4;
 		     return $ map CmmStaticLit $
-                       mkStaticClosure (mkForeignLabel $3 Nothing True IsFunction)
+                       mkStaticClosure (mkForeignLabel $3 Nothing True IsData)
                          -- mkForeignLabel because these are only used
                          -- for CHARLIKE and INTLIKE closures in the RTS.
 			 dontCareCCS (map getLit lits) [] [] [] }