[Git][ghc/ghc][wip/T23479] WIP add logging

[Serge S. Gulin (@gulin.serge)]

Serge S. Gulin pushed to branch wip/T23479 at Glasgow Haskell Compiler / GHC


Commits:
1a145d43 by Serge S. Gulin at 2024-09-14T01:23:19+03:00
WIP add logging

- - - - -


1 changed file:

- compiler/GHC/StgToJS/Sinker.hs


Changes:

=====================================
compiler/GHC/StgToJS/Sinker.hs
=====================================
@@ -43,9 +43,11 @@ sinkPgm m pgm
       ++ ((DT.trace . (++) "<stringLits>" . showSDocUnsafe . pprGenStgTopBindings shortStgPprOpts) stringLits stringLits)
     )
   where
-    selectLifted :: CgStgTopBinding -> Either CgStgBinding (Id, ByteString)
+    -- selectLifted :: CgStgTopBinding -> Either CgStgBinding (Id, ByteString)
+    selectLifted :: CgStgTopBinding -> Either CgStgBinding CgStgTopBinding
     selectLifted (StgTopLifted b)      = Left b
-    selectLifted (StgTopStringLit i b) = Right (i, b)
+    -- selectLifted (StgTopStringLit i b) = Right (i, b)
+    selectLifted x = Right x
 
     selectLiftedInCase :: [CgStgBinding] -> (Id, ByteString) -> Either (Id, ByteString) (Id, ByteString)
     selectLiftedInCase bindings (i, _) = undefined



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/1a145d43264aa9c933fa4bbc1913c0aac28ea174
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/20240913/46e9a9db/attachment.html>