Implement remote screen for launcher projectiles

2024-09-27 10:39:21 +01:00
parent fb6fcff61c
commit 5f9fb183a9
35 changed files with 238 additions and 170 deletions
@@ -222,8 +222,8 @@ updateCloseObjects w =
 changeSwapSel :: Int -> World -> World
 changeSwapSel yi w
    | yi == 0 = w
-    | yi > 0 = (foldr ($) w $ replicate yi (changeSwapWith $ f IM.cycleLT))
-    | otherwise = (foldr ($) w $ replicate (negate yi) (changeSwapWith $ f IM.cycleGT))
+    | yi > 0 = foldr ($) w $ replicate yi (changeSwapWith $ f IM.cycleLT)
+    | otherwise = foldr ($) w $ replicate (negate yi) (changeSwapWith $ f IM.cycleGT)
  where
    f g i m = fst <$> g i m