Wolfgang Jeltsch pushed to branch wip/jeltsch/textual-bytecode-output at Glasgow Haskell Compiler / GHC Commits: a1681c68 by Wolfgang Jeltsch at 2026-07-02T16:22:47+03:00 Change wrong use of `(<$>)` and `(<*>)` to `zipWith5` use - - - - - 1 changed file: - compiler/GHC/ByteCode/Show.hs Changes: ===================================== compiler/GHC/ByteCode/Show.hs ===================================== @@ -6,7 +6,6 @@ module GHC.ByteCode.Show (showByteCode) where import Prelude ((+), (-), Integral, div) -import Control.Applicative ((<$>), (<*>)) import Control.Arrow ((>>>)) import Control.Exception (assert) import Data.Eq ((==)) @@ -18,7 +17,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) @@ -296,15 +295,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/-/commit/a1681c68a2fb169acf861f59e5af4df5... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/a1681c68a2fb169acf861f59e5af4df5... You're receiving this email because of your account on gitlab.haskell.org.