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

[Josh Meredith (@JoshMeredith)]

Josh Meredith pushed to branch wip/plusUDFM at Glasgow Haskell Compiler / GHC


Commits:
979d6b1c by Josh Meredith at 2023-08-07T19:38:12+10:00
lint

- - - - -


1 changed file:

- compiler/GHC/Data/Word64Map/Internal.hs


Changes:

=====================================
compiler/GHC/Data/Word64Map/Internal.hs
=====================================
@@ -1417,7 +1417,7 @@ mergeMapWithKey' bin' f g1 g2 m = go
                | zero p1 m2        = bin' p2 m2 (go t1 l2) (g2 r2)
                | otherwise         = bin' p2 m2 (g2 l2) (go t1 r2)
 
-    go t1'@(Bin _ _ _ _) t2'@(Tip k2' x2') = merge0 (Tip k2' $! m x2') k2' t1'
+    go t1'@(Bin _ _ _ _) (Tip k2' x2') = merge0 (Tip k2' $! m x2') k2' t1'
       where
         merge0 t2 k2 t1@(Bin p1 m1 l1 r1)
           | nomatch k2 p1 m1 = maybe_link p1 (g1 t1) k2 (g2 t2)



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/979d6b1c52513ff4ccdc85f1a03c388e9c08f24e
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/ad55969c/attachment-0001.html>