From 9d875ab8fb539246e3aea0aae58d2c9f227c8276 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Wed, 17 Apr 2024 22:45:19 -0400
Subject: Some basic emulator graphics

---
 fig-emulator-gb/src/Fig/Emulator/GB/Component/ROM.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'fig-emulator-gb/src/Fig/Emulator/GB/Component/ROM.hs')

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
-- 
cgit v1.2.3