[Git][ghc/ghc][wip/js-taginference] Lint

[Josh Meredith (@JoshMeredith)]

Josh Meredith pushed to branch wip/js-taginference at Glasgow Haskell Compiler / GHC


Commits:
066a88ca by Josh Meredith at 2024-01-04T21:25:09+11:00
Lint

- - - - -


1 changed file:

- compiler/GHC/StgToJS/Utils.hs


Changes:

=====================================
compiler/GHC/StgToJS/Utils.hs
=====================================
@@ -68,7 +68,6 @@ import GHC.Types.Var.Set
 import GHC.Types.Id
 import GHC.Types.Id.Info
 import GHC.Types.Unique.FM
-import GHC.Types.Unique.Set
 import GHC.Types.ForeignCall
 import GHC.Types.TyThing
 import GHC.Types.Name
@@ -433,11 +432,11 @@ isInlineExpr = \case
     ->let ie   = isInlineExpr e
           ias  = map isInlineExpr (fmap alt_rhs alts)
       in (ie || ctxIsEvaluated b) && and ias
-  StgLet _ b e
+  StgLet _ _ e
     -> isInlineExpr e
-  StgLetNoEscape _ _b e
+  StgLetNoEscape _ _ e
     -> isInlineExpr e
-  StgTick  _ e
+  StgTick _ e
     -> isInlineExpr e
 
 isInlineForeignCall :: ForeignCall -> Bool



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/066a88ca2bb194e00a9433dfaa07099c18635c81
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/20240104/c8f6f348/attachment-0001.html>