diff options
| author | LLLL Colonq <llll@colonq> | 2024-04-17 22:45:19 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-04-17 22:45:19 -0400 |
| commit | 9d875ab8fb539246e3aea0aae58d2c9f227c8276 (patch) | |
| tree | ba14b76a69fa39ec5cdb614d76ff6fdd02c81e94 /fig-emulator-gb/src/Fig/Emulator/GB/Component/RAM.hs | |
| parent | 3a0a7b0a89fd841edd5f25f79cdb877051d0e948 (diff) | |
Some basic emulator graphics
Diffstat (limited to 'fig-emulator-gb/src/Fig/Emulator/GB/Component/RAM.hs')
| -rw-r--r-- | fig-emulator-gb/src/Fig/Emulator/GB/Component/RAM.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fig-emulator-gb/src/Fig/Emulator/GB/Component/RAM.hs b/fig-emulator-gb/src/Fig/Emulator/GB/Component/RAM.hs index c88033e..f5c08b4 100644 --- a/fig-emulator-gb/src/Fig/Emulator/GB/Component/RAM.hs +++ b/fig-emulator-gb/src/Fig/Emulator/GB/Component/RAM.hs @@ -25,7 +25,7 @@ compWRAM start size = Component { compState = V.replicate size 0 :: V.Vector Word8 , compMatches = \a -> a >= start && a < end - , compUpdate = pure + , compUpdate = \s _ -> pure s , compWrite = \s ad v -> do let offset = fromIntegral . unAddr $ ad - start pure $ V.modify (\ms -> MV.write ms offset v) s |