[Git][ghc/ghc][wip/js-stgrhsclosure] Apply 1 suggestion(s) to 1 file(s)

[Sylvain Henry (@hsyl20)]

Sylvain Henry pushed to branch wip/js-stgrhsclosure at Glasgow Haskell Compiler / GHC


Commits:
aebffcc5 by Sylvain Henry at 2023-04-25T14:35:56+00:00
Apply 1 suggestion(s) to 1 file(s)
- - - - -


1 changed file:

- compiler/GHC/CoreToStg.hs


Changes:

=====================================
compiler/GHC/CoreToStg.hs
=====================================
@@ -699,7 +699,7 @@ coreToPreStgRhs :: HasDebugCallStack => CoreExpr -> CtsM PreStgRhs
 coreToPreStgRhs expr
   = extendVarEnvCts [ (a, LambdaBound) | a <- args' ] $
     do { body' <- coreToStgExpr body
-       ; return (PreStgRhs args' body' (exprType expr)) }
+       ; return (PreStgRhs args' body' (exprType body)) }
   where
    (args, body) = myCollectBinders expr
    args'        = filterStgBinders args



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/aebffcc539466b7475fc319f070c5b14e259288e

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/aebffcc539466b7475fc319f070c5b14e259288e
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20230425/d67c3269/attachment.html>