[Git][ghc/ghc][wip/T17521] Allow nested floating

[Jaro Reinders (@Noughtmare)]

Jaro Reinders pushed to branch wip/T17521 at Glasgow Haskell Compiler / GHC


Commits:
fa383daf by Jaro Reinders at 2023-07-11T09:38:46+02:00
Allow nested floating

- - - - -


1 changed file:

- compiler/GHC/Core/Utils.hs


Changes:

=====================================
compiler/GHC/Core/Utils.hs
=====================================
@@ -2032,8 +2032,10 @@ exprIsTickedString = isJust . exprIsTickedString_maybe
 -- | Check if the expression is an constructor possibly applied to trivial arguments.
 exprIsTrivialConApp :: CoreExpr -> Bool
 exprIsTrivialConApp x
+  | exprIsTrivial x
+  = True
   | (Var v, xs) <- collectArgs x
-  = isDataConWorkId v && all exprIsTrivial xs
+  = isDataConWorkId v && all exprIsTrivialConApp xs
 exprIsTrivialConApp _ = False
 
 -- | Extract a literal string from an expression that is zero or more Ticks



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/fa383daf696bbffdb8351da26abd15caeb61f335
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/20230711/fef78cec/attachment.html>