Wolfgang Jeltsch pushed to branch wip/jeltsch/textual-bytecode-output at Glasgow Haskell Compiler / GHC Commits: 41db7f1b by Wolfgang Jeltsch at 2026-07-02T13:41:21+03:00 Slightly improve the output of info table literals - - - - - 8ae540da by Wolfgang Jeltsch at 2026-07-02T15:27:53+03:00 Change wrong use of `(<$>)` and `(<*>)` to `zipWith5` use - - - - - 1 changed file: - compiler/GHC/ByteCode/Show.hs Changes: ===================================== compiler/GHC/ByteCode/Show.hs ===================================== @@ -18,7 +18,7 @@ import Data.Int (Int) import Data.Word (Word) import Data.Maybe (Maybe, maybe) import Data.Either (Either, either) -import Data.List (length, (++), map, zipWith, take, drop, replicate) +import Data.List (length, (++), map, zipWith, zipWith5, take, drop, replicate) import Data.String (String) import Data.ByteString (ByteString, unpack) import Data.ByteString.Short (ShortByteString) @@ -179,7 +179,7 @@ pprLiteral currentModule literal = case literal of -> text "label" <+> ppr label BCONPtrItbl infoTableName - -> text "info table" <+> + -> text "info table of" <+> ppr infoTableName BCONPtrAddr addrName -> text "address" <+> @@ -296,15 +296,15 @@ pprBreakpointsData currentModule InternalModBreaks {..} -- | […] pprBreakpointsInSource :: Module -> ModBreaks -> SDoc pprBreakpointsInSource currentModule ModBreaks {..} - = entry (text "breakpoints in source:") $ - assert (modBreaks_module == currentModule) $ - assert boundsAreIdentical $ - vcatOrNone $ - pprBreakpointInSource <$> indices modBreaks_locs_ <*> - elems modBreaks_locs_ <*> - elems modBreaks_decls <*> - elems modBreaks_vars <*> - elems modBreaks_ccs + = entry (text "breakpoints in source:") $ + assert (modBreaks_module == currentModule) $ + assert boundsAreIdentical $ + vcatOrNone $ + zipWith5 pprBreakpointInSource (indices modBreaks_locs_) + (elems modBreaks_locs_) + (elems modBreaks_decls) + (elems modBreaks_vars) + (elems modBreaks_ccs) where boundsAreIdentical :: Bool View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/17901d772fde45976e8a74bd4d21cc6... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/17901d772fde45976e8a74bd4d21cc6... You're receiving this email because of your account on gitlab.haskell.org.