1 files changed, 0 insertions, 23 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
deleted file mode 100644
index 7519ea5..0000000
--- a/fig-emulator-gb/src/Fig/Emulator/GB/Component/Joystick.hs
+++ /dev/null
@@ -1,23 +0,0 @@
-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 :: Component
-compJoystick = Component
-  { compState = ()
-  , compMatches = (== 0xff00)
-  , compUpdate = \s _ -> pure s
-  , compWrite = \s _ _ -> pure s
-  , compRead = \_ _ -> pure 0x00
-  }