From 2fec6e70b2b583299bcbbda0b596a5a9c275e93e Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Mon, 13 May 2024 03:39:51 -0400 Subject: fig-emulator-gb: Debugging the PPU --- fig-emulator-gb/src/Fig/Emulator/GB/Component/Serial.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'fig-emulator-gb/src/Fig/Emulator/GB/Component/Serial.hs') diff --git a/fig-emulator-gb/src/Fig/Emulator/GB/Component/Serial.hs b/fig-emulator-gb/src/Fig/Emulator/GB/Component/Serial.hs index 7a4bceb..3912e5d 100644 --- a/fig-emulator-gb/src/Fig/Emulator/GB/Component/Serial.hs +++ b/fig-emulator-gb/src/Fig/Emulator/GB/Component/Serial.hs @@ -14,7 +14,7 @@ newtype SerialError = SerialError Text instance Exception SerialError instance Pretty SerialError where pretty (SerialError b) = mconcat - [ "joystick error: " + [ "serial error: " , b ] @@ -24,9 +24,9 @@ compSerial mh = Component , compMatches = (== 0xff01) , compUpdate = \s _ -> pure s , compWrite = \s _ v -> do - -- log $ mconcat - -- [ "wrote serial byte: ", tshow $ chr $ fromIntegral v - -- ] + log $ mconcat + [ "wrote serial byte: ", tshow $ chr $ fromIntegral v + ] case mh of Nothing -> pure () Just h -> liftIO . hPutChar h . chr $ fromIntegral v -- cgit v1.2.3