diff options
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 - } |
