Minor cleanups

src/Dodge/Update/UsingInput.hs

@@ -3,6 +3,7 @@ module Dodge.Update.UsingInput
     ( updateUsingInput
     ) where
 import Dodge.Data
+import Dodge.Base.You
 import Dodge.Creature.Impulse.UseItem
 import Geometry
 
@@ -17,7 +18,7 @@ updateUsingInput w = if _carteDisplay w
 
 updatePressedButtons :: S.Set MouseButton -> World -> World
 updatePressedButtons pkeys w 
-    | lbPressed && rbPressed = useItem (_yourID w) w
+    | lbPressed && rbPressed = tryUseItem (you w) w
     | lbPressed = useLeftItem (_yourID w) w
     | lbPressed = w
     | mbPressed = w & clickMousePos .~ _mousePos w