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/RAM.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

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