Cleanup

src/Dodge/Item/PassKey.hs

@@ -24,7 +24,7 @@ keyPic = color green $
                        ]
 
 latchkey :: Int -> Item
-latchkey n = defaultEquipment
+latchkey _ = defaultEquipment
     { _itEquipPict = \_ _ -> (,) emptySH $ setDepth 0 $ translate (-5) (-5) $ rotate (pi/2.5) latchkeyPic
     , _itEffect = NoItEffect
     , _itID = Nothing

src/Dodge/Item/Weapon/Launcher.hs

@@ -278,9 +278,6 @@ trySpinByCID cid i pj w = w & props . ix pjid . pjSpin .~ newSpin
         _ -> 0
     spinFactor = 5 * (6 - fromIntegral i)
 
-remoteLauncherName :: String
-remoteLauncherName = "ROCKO-REMOTE"
-
 remoteLauncher :: Item
 remoteLauncher = launcher 
     & itType . iyBase .~ REMOTELAUNCHER