[Git][ghc/ghc][wip/plusUDFM] lint
Josh Meredith (@JoshMeredith)
gitlab at gitlab.haskell.org
Mon Aug 7 10:44:35 UTC 2023
Josh Meredith pushed to branch wip/plusUDFM at Glasgow Haskell Compiler / GHC
Commits:
12481372 by Josh Meredith at 2023-08-07T20:44:25+10:00
lint
- - - - -
1 changed file:
- compiler/GHC/Types/Unique/DFM.hs
Changes:
=====================================
compiler/GHC/Types/Unique/DFM.hs
=====================================
@@ -67,6 +67,8 @@ module GHC.Types.Unique.DFM (
nonDetStrictFoldUDFM,
unsafeCastUDFMKey,
alwaysUnsafeUfmToUdfm,
+ addListToUDFM_Directly,
+ insertUDFMIntoLeft,
) where
import GHC.Prelude
@@ -267,7 +269,7 @@ plusUDFM_C f udfml@(UDFM _ i) udfmr@(UDFM _ j)
-- set.
plusUDFM :: UniqDFM key elt -> UniqDFM key elt -> UniqDFM key elt
-plusUDFM udfml@(UDFM xs i) udfmr@(UDFM ys j)
+plusUDFM (UDFM xs i) (UDFM ys j)
= UDFM (MS.unionMap xs ys (\(TaggedVal x n) -> TaggedVal x (n + i))) (i + j)
-- = UDFM (xs `M.union` M.map (\(TaggedVal x n) -> TaggedVal x (n + i)) ys) (i + j)
-- we will use the upper bound on the tag as a proxy for the set size,
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/12481372dd87ba5983c0ab02e41617d5fc976077
--
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/12481372dd87ba5983c0ab02e41617d5fc976077
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/20230807/b53493d2/attachment-0001.html>
More information about the ghc-commits
mailing list