[Git][ghc/ghc][wip/clyring/seqHash-DmdTransformer] fixup?

[Matthew Craven (@clyring)]

Matthew Craven pushed to branch wip/clyring/seqHash-DmdTransformer at Glasgow Haskell Compiler / GHC


Commits:
e59e4342 by Matthew Craven at 2024-04-22T09:01:06-04:00
fixup?

- - - - -


1 changed file:

- compiler/GHC/Types/Demand.hs


Changes:

=====================================
compiler/GHC/Types/Demand.hs
=====================================
@@ -2364,9 +2364,8 @@ dmdTransformSeqHash sd0 = let
   !num_calls = n1 `multCard` n2
   arg_SubDmd = case viewProd 2 sd2 of
     Just (_, [_state_token_dmd, result_dmd])
-      -> case trimBoxity result_dmd of
+      -> case trimBoxity (strictifyDmd result_dmd) of
            -- trimBoxity: We can't unbox through seq# yet. (But see #24334.)
-           AbsDmd -> seqSubDmd
            _ :* result_SubDmd -> result_SubDmd
     _ -> topSubDmd
   !arg_dmd = num_calls `multDmd` (C_01 :* arg_SubDmd)



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/e59e4342276ecc9bd980143ad4b98e6b9b1a0c1e
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/20240422/901dbcd2/attachment.html>