From a7d8074da3f326da718d1057d1b3337210ba34a8 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 7 Feb 2009 00:58:34 +0000 Subject: [PATCH] Correct an IsFunction that should be IsData --- compiler/cmm/CmmParse.y | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) [] [] [] } -- 1.7.10.4