[Git][ghc/ghc][wip/T23923-mikolaj-take-2] wibble

[Simon Peyton Jones (@simonpj)]

Simon Peyton Jones pushed to branch wip/T23923-mikolaj-take-2 at Glasgow Haskell Compiler / GHC


Commits:
df626244 by Simon Peyton Jones at 2024-04-15T19:46:20+01:00
wibble

- - - - -


1 changed file:

- compiler/GHC/Core/Type.hs


Changes:

=====================================
compiler/GHC/Core/Type.hs
=====================================
@@ -1007,7 +1007,7 @@ mapTyCoX (TyCoMapper { tcm_tyvar = tyvar
 
     -- See Note [Use explicit recursion in mapTyCo]
     go_fcvs :: env -> [CoVar] -> m DTyCoVarSet
-    go_fcvs env []       = return emptyDVarSet
+    go_fcvs _   []       = return emptyDVarSet
     go_fcvs env (cv:cvs) = do { co   <- covar env cv
                               ; cvs' <- go_fcvs env cvs
                               ; return (tyCoVarsOfCoDSet co `unionDVarSet` cvs') }



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/df626244ff1c081da196adce80f2393008985301
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/20240415/aaf411d7/attachment.html>