From b677a422d3d434a45e9dcdc189c40f8224cc8dc8 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Fri, 10 May 2024 15:16:34 -0400 Subject: fig-emulator-gb: Profiling the PPU --- fig-emulator-gb/src/Fig/Emulator/GB/Bus.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'fig-emulator-gb/src/Fig/Emulator/GB/Bus.hs') diff --git a/fig-emulator-gb/src/Fig/Emulator/GB/Bus.hs b/fig-emulator-gb/src/Fig/Emulator/GB/Bus.hs index 1c64dfd..f0c461f 100644 --- a/fig-emulator-gb/src/Fig/Emulator/GB/Bus.hs +++ b/fig-emulator-gb/src/Fig/Emulator/GB/Bus.hs @@ -22,14 +22,14 @@ instance Pretty Addr where data Component = forall (s :: Type). Component { compState :: s , compMatches :: Addr -> Bool - , compUpdate :: s -> Int -> IO s + , compUpdate :: s -> Word16 -> IO s , compWrite :: s -> Addr -> Word8 -> IO s , compRead :: s -> Addr -> IO Word8 } newtype Bus = Bus { busComponents :: [Component] } -update :: Int -> Bus -> IO Bus +update :: Word16 -> Bus -> IO Bus update t b = Bus <$> forM (busComponents b) \Component{..} -> do s <- compUpdate compState t pure Component { compState = s, ..} -- cgit v1.2.3