From 4bc8bd58e6f9a6ca509d4e6869ba10c65145775d Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Sun, 1 Jun 2025 19:07:25 -0400
Subject: Remove fig-emulator-gb

---
 .../src/Fig/Emulator/GB/Component/Joystick.hs      | 23 ----------------------
 1 file changed, 23 deletions(-)
 delete mode 100644 fig-emulator-gb/src/Fig/Emulator/GB/Component/Joystick.hs

(limited to 'fig-emulator-gb/src/Fig/Emulator/GB/Component/Joystick.hs')

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
-  }
-- 
cgit v1.2.3