diff options
| author | LLLL Colonq <llll@colonq> | 2024-05-13 03:39:51 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-05-13 03:39:51 -0400 |
| commit | 2fec6e70b2b583299bcbbda0b596a5a9c275e93e (patch) | |
| tree | 02e9676a4c3923e49818ec150460bbeaa322dc17 /fig-emulator-gb/src/Fig/Emulator/GB/Bus.hs | |
| parent | b677a422d3d434a45e9dcdc189c40f8224cc8dc8 (diff) | |
fig-emulator-gb: Debugging the PPU
Diffstat (limited to 'fig-emulator-gb/src/Fig/Emulator/GB/Bus.hs')
| -rw-r--r-- | fig-emulator-gb/src/Fig/Emulator/GB/Bus.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/fig-emulator-gb/src/Fig/Emulator/GB/Bus.hs b/fig-emulator-gb/src/Fig/Emulator/GB/Bus.hs index f0c461f..2b71f2f 100644 --- a/fig-emulator-gb/src/Fig/Emulator/GB/Bus.hs +++ b/fig-emulator-gb/src/Fig/Emulator/GB/Bus.hs @@ -20,11 +20,11 @@ instance Pretty Addr where pretty (Addr w) = "$" <> pack (showHex w "") data Component = forall (s :: Type). Component - { compState :: s - , compMatches :: Addr -> Bool - , compUpdate :: s -> Word16 -> IO s - , compWrite :: s -> Addr -> Word8 -> IO s - , compRead :: s -> Addr -> IO Word8 + { compState :: !s + , compMatches :: !(Addr -> Bool) + , compUpdate :: !(s -> Word16 -> IO s) + , compWrite :: !(s -> Addr -> Word8 -> IO s) + , compRead :: !(s -> Addr -> IO Word8) } newtype Bus = Bus { busComponents :: [Component] } |