Cleanup launchers

src/Dodge/Creature/Impulse/UseItem.hs

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