fig-emulator-gb: Profiling the PPU

1 files changed, 2 insertions, 2 deletions

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, ..}