Minor cleanups

src/Dodge/Creature/Impulse/UseItem.hs

@@ -1,6 +1,5 @@
 module Dodge.Creature.Impulse.UseItem
-    ( useItem
-    , tryUseItem
+    ( tryUseItem
     , useLeftItem
     ) where
 import Dodge.Data
@@ -10,12 +9,6 @@ import qualified Data.IntMap.Strict as IM
 import Control.Lens
 import Data.Maybe
 
-useItem :: Int -> World -> World
-useItem cid w = tryUseItem cr w -- itemEffect cr it w
-  where 
-    cr = _creatures w IM.! cid
-    --it = _crInv cr IM.! _crInvSel cr
-
 tryUseItem :: Creature -> World -> World
 tryUseItem cr' w = fromMaybe w $ do
     cr <- w ^? creatures . ix (_crID cr')