Lint

src/Dodge/HeldUse.hs

@@ -1,5 +1,5 @@
 {-# OPTIONS -Wno-incomplete-uni-patterns #-}
-{-# LANGUAGE TupleSections #-}
+--{-# LANGUAGE TupleSections #-}
 
 module Dodge.HeldUse (
     heldEffect,
@@ -57,7 +57,7 @@ hammerCheck f it cr w = case it ^? ldtValue . itUse . heldTriggerType of
         _ -> w
     _ -> f it cr w
   where
-    nomakeauto = not . isJust $ lookup MakeAutoLink (it ^. ldtRight)
+    nomakeauto = isNothing $ lookup MakeAutoLink (it ^. ldtRight)
 
 -- | Applies a world effect after an item use cooldown check.
 useTimeCheck :: ChainEffect
@@ -613,12 +613,12 @@ createProjectileR ::
     Creature ->
     World ->
     World
-createProjectileR magtree muz itmtree cr =
+createProjectileR magtree muz itmtree =
     createProjectile 
         (Rocket 
             (determineProjectileTracking magtree itmtree)
             smoke
-        ) magtree muz itmtree cr
+        ) magtree muz itmtree
   where
     smoke 
         | isJust $ lookup SmokeReducerLink (magtree ^. ldtLeft) = Just ReducedRocketSmoke
@@ -636,11 +636,10 @@ createProjectile pjtype magtree muz itmtree cr = fromMaybe failsound $ do
     magid <- magtree ^? ldtValue . itLocation . ilInvID
     ammoitem <- cr ^? crInv . ix magid
     let homing = determineProjectileTracking magtree itmtree
-        rdetonate = fmap (^. ldtValue . itID) $
+        rdetonate = (^. ldtValue . itID) <$>
             lookup RemoteDetonatorLink (magtree ^. ldtLeft)
-        rscreen = fmap (^. ldtValue . itID) $
+        rscreen = (^. ldtValue . itID) <$>
             lookup RemoteScreenLink (magtree ^. ldtLeft)
---        issmokeless = isJust $ lookup SmokeReducerLink (magtree ^. ldtLeft)
     aparams <- ((magtree ^? ldtLeft) >>= lookup AmmoPayloadLink >>= (^? ldtValue . itType . ibtAttach . shellPayload))
         <|> ammoitem ^? itConsumables . magParams . ampPayload
     return $