diff options
| author | LLLL Colonq <llll@colonq> | 2024-05-13 03:39:51 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-05-13 03:39:51 -0400 |
| commit | 2fec6e70b2b583299bcbbda0b596a5a9c275e93e (patch) | |
| tree | 02e9676a4c3923e49818ec150460bbeaa322dc17 /fig-emulator-gb/src/Fig/Emulator/GB/Component/Serial.hs | |
| parent | b677a422d3d434a45e9dcdc189c40f8224cc8dc8 (diff) | |
fig-emulator-gb: Debugging the PPU
Diffstat (limited to 'fig-emulator-gb/src/Fig/Emulator/GB/Component/Serial.hs')
| -rw-r--r-- | fig-emulator-gb/src/Fig/Emulator/GB/Component/Serial.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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 |