Start adding mouse control of inventory

ghcidOutput

@@ -1,14 +1,5 @@
-/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:70:31-47: error:
-    • Data constructor not in scope:
-        CrWeaponFailSound :: Int -> SoundOrigin
-    • Perhaps you meant ‘CrWeaponSound’ (imported from Dodge.Data.World)
+/home/justin/Haskell/loop/src/Dodge/Render/ShapePicture.hs:61:19: warning: [-Wunused-matches]
+    Defined but not used: ‘cfig’
    |
-70 |         Just 0 -> soundStart (CrWeaponFailSound (_crID cr)) (_crPos cr) click1S Nothing w
-   |                               ^^^^^^^^^^^^^^^^^
-/home/justin/Haskell/loop/src/Dodge/HeldUse.hs:71:29-45: error:
-    • Data constructor not in scope:
-        CrWeaponFailSound :: Int -> SoundOrigin
-    • Perhaps you meant ‘CrWeaponSound’ (imported from Dodge.Data.World)
-   |
-71 |         _ -> soundContinue (CrWeaponFailSound (_crID cr)) (_crPos cr) click1S Nothing w
-   |                             ^^^^^^^^^^^^^^^^^
+61 | drawDIMouseOver w cfig = fromMaybe mempty $ do
+   |                   ^^^^