summaryrefslogtreecommitdiff
path: root/fig-emulator-gb/src/Fig/Emulator/GB/Component/ROM.hs
diff options
context:
space:
mode:
authorLLLL Colonq <llll@colonq>2024-04-17 22:45:19 -0400
committerLLLL Colonq <llll@colonq>2024-04-17 22:45:19 -0400
commit9d875ab8fb539246e3aea0aae58d2c9f227c8276 (patch)
treeba14b76a69fa39ec5cdb614d76ff6fdd02c81e94 /fig-emulator-gb/src/Fig/Emulator/GB/Component/ROM.hs
parent3a0a7b0a89fd841edd5f25f79cdb877051d0e948 (diff)
Some basic emulator graphics
Diffstat (limited to 'fig-emulator-gb/src/Fig/Emulator/GB/Component/ROM.hs')
-rw-r--r--fig-emulator-gb/src/Fig/Emulator/GB/Component/ROM.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/fig-emulator-gb/src/Fig/Emulator/GB/Component/ROM.hs b/fig-emulator-gb/src/Fig/Emulator/GB/Component/ROM.hs
index b5ea24f..bfdc2fb 100644
--- a/fig-emulator-gb/src/Fig/Emulator/GB/Component/ROM.hs
+++ b/fig-emulator-gb/src/Fig/Emulator/GB/Component/ROM.hs
@@ -25,7 +25,7 @@ compROM bs = Component
{ compState = V.fromList $ BS.unpack bs
, compMatches = \a ->
a >= start && a < end
- , compUpdate = pure
+ , compUpdate = \s _ -> pure s
, compWrite = \s _ad _v ->
pure s
-- throwM . ROMError $ mconcat