Cleanup

src/Dodge/Update.hs

@@ -363,7 +363,7 @@ shiftInvItemsUp :: (Int, Int) -> Int -> World -> World
 shiftInvItemsUp (_, i) x w = foldl' f w [i .. i + x]
   where
     f w' i' = swapInvItems g i' w'
-    g i' m = fmap fst $ IM.lookupLT i' m
+    g i' m = fst <$> IM.lookupLT i' m
 
 shiftInvItemsDown :: (Int, Int) -> Int -> World -> World
 shiftInvItemsDown (_, i) x w = fromMaybe w $ do
@@ -372,7 +372,7 @@ shiftInvItemsDown (_, i) x w = fromMaybe w $ do
     return $ foldl' f w $ reverse [i .. i + x]
   where
     f w' i' = swapInvItems g i' w'
-    g i' m = fmap fst $ IM.lookupGT i' m
+    g i' m = fst <$> IM.lookupGT i' m
 
 updateMouseOverInventory :: Configuration -> World -> World
 updateMouseOverInventory cfig w = fromMaybe w $ do