diff options
| author | LLLL Colonq <llll@colonq> | 2025-06-01 19:07:25 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2025-06-01 19:07:25 -0400 |
| commit | 4bc8bd58e6f9a6ca509d4e6869ba10c65145775d (patch) | |
| tree | 5bc97cc01e737f9cacba1f7c13570ce7846acf36 /fig-emulator-gb/src/Fig/Emulator/GB/Component/Misc.hs | |
| parent | f95d9bbde51ee26468177b2d34c669d9689fbea4 (diff) | |
Remove fig-emulator-gb
Diffstat (limited to 'fig-emulator-gb/src/Fig/Emulator/GB/Component/Misc.hs')
| -rw-r--r-- | fig-emulator-gb/src/Fig/Emulator/GB/Component/Misc.hs | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/fig-emulator-gb/src/Fig/Emulator/GB/Component/Misc.hs b/fig-emulator-gb/src/Fig/Emulator/GB/Component/Misc.hs deleted file mode 100644 index be15e56..0000000 --- a/fig-emulator-gb/src/Fig/Emulator/GB/Component/Misc.hs +++ /dev/null @@ -1,24 +0,0 @@ -module Fig.Emulator.GB.Component.Misc where - -import Fig.Prelude - -import Fig.Emulator.GB.Utils -import Fig.Emulator.GB.Bus - -newtype MiscError = MiscError Text - deriving Show -instance Exception MiscError -instance Pretty MiscError where - pretty (MiscError b) = mconcat - [ "misc component error: " - , b - ] - -compMisc :: Component -compMisc = Component - { compState = () - , compMatches = (== 0xff4d) - , compUpdate = \s _ -> pure s - , compWrite = \s _ _ -> pure s - , compRead = \_ _ -> pure 0x00 - } |
