[Git][ghc/ghc][wip/js-staging] Compactor: remove more dead code

[Sylvain Henry (@hsyl20)]

Sylvain Henry pushed to branch wip/js-staging at Glasgow Haskell Compiler / GHC


Commits:
43477793 by Sylvain Henry at 2022-10-14T12:31:06+02:00
Compactor: remove more dead code

- - - - -


1 changed file:

- compiler/GHC/StgToJS/Linker/Compactor.hs


Changes:

=====================================
compiler/GHC/StgToJS/Linker/Compactor.hs
=====================================
@@ -34,8 +34,6 @@ module GHC.StgToJS.Linker.Compactor
   ( compact
   , debugShowStat
   , packStrings
-  , staticInfoArgs
-  , staticValArgs
   ) where
 
 
@@ -207,16 +205,6 @@ staticIdentsA :: (FastString -> FastString) -> StaticArg -> StaticArg
 staticIdentsA f (StaticObjArg t) = StaticObjArg $! f t
 staticIdentsA _ x = x
 
-staticInfoArgs :: Applicative f => (StaticArg -> f StaticArg) -> StaticInfo -> f StaticInfo
-staticInfoArgs f (StaticInfo si sv sa) = StaticInfo si <$> staticValArgs f sv <*> pure sa
-
-staticValArgs :: Applicative f => (StaticArg -> f StaticArg) -> StaticVal -> f StaticVal
-staticValArgs f (StaticFun fn as) = StaticFun fn <$> traverse f as
-staticValArgs f (StaticThunk (Just (t, as))) = StaticThunk . Just . (t,) <$> traverse f as
-staticValArgs f (StaticData c as) = StaticData c <$> traverse f as
-staticValArgs f (StaticList as mt) = StaticList <$> traverse f as <*> pure mt
-staticValArgs _ x = pure x
-
 compact :: JSLinkConfig
         -> StgToJSConfig
         -> CompactorState



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/43477793b9d373d28d449892ef14078c128ffd76
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/20221014/2c36f052/attachment-0001.html>