diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-02-07 00:58:34 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-02-07 00:58:34 +0000 |
| commit | a7d8074da3f326da718d1057d1b3337210ba34a8 (patch) | |
| tree | 81d69e31075112b1cf68b5ad1d6b55facfc07885 /compiler/cmm/CmmParse.y | |
| parent | 8fd6a1efca90be81dc97a679bf430aaffecc568d (diff) | |
| download | haskell-a7d8074da3f326da718d1057d1b3337210ba34a8.tar.gz | |
Correct an IsFunction that should be IsData
Diffstat (limited to 'compiler/cmm/CmmParse.y')
| -rw-r--r-- | compiler/cmm/CmmParse.y | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/CmmParse.y b/compiler/cmm/CmmParse.y index e488a669b0..1030895609 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) [] [] [] } |