[Git][ghc/ghc][wip/plusUDFM] lint

[Josh Meredith (@JoshMeredith)]

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>