Some basic emulator graphics

1 files changed, 23 insertions, 0 deletions

diff --git a/fig-emulator-gb/src/Fig/Emulator/GB/Component/Joystick.hs b/fig-emulator-gb/src/Fig/Emulator/GB/Component/Joystick.hs
new file mode 100644
index 0000000..84785b6
--- /dev/null
+++ b/fig-emulator-gb/src/Fig/Emulator/GB/Component/Joystick.hs
@@ -0,0 +1,23 @@
+module Fig.Emulator.GB.Component.Joystick where
+
+import Fig.Prelude
+
+import Fig.Emulator.GB.Bus
+
+newtype JoystickError = JoystickError Text
+  deriving Show
+instance Exception JoystickError
+instance Pretty JoystickError where
+  pretty (JoystickError b) = mconcat
+    [ "joystick error: "
+    , b
+    ]
+
+compJoystick :: (MonadIO m, MonadThrow m) => Component m
+compJoystick = Component
+  { compState = ()
+  , compMatches = (== 0xff00)
+  , compUpdate = \s _ -> pure s
+  , compWrite = \s _ _ -> pure s
+  , compRead = \_ _ -> pure 0x00
+  }