Use strict tuples for SPics

2024-10-01 01:20:29 +01:00
parent a98ec80f59
commit 5a4f2711c8
17 changed files with 69 additions and 481 deletions
@@ -2,6 +2,7 @@ module Dodge.Projectile.Draw
    ( drawProjectile
    ) where

+import Data.Strict.Tuple
 import Dodge.Data.Item.Use.Consumption.Ammo
 import Dodge.Data.Projectile
 import Geometry
@@ -40,6 +41,5 @@ drawRemoteShell pj

 remoteShellShape :: Color -> SPic
 remoteShellShape col =
-    ( shellShape
-    , setLayer BloomNoZWrite . setDepth 4.5 . color col $ circleSolid 3
-    )
+     shellShape
+    :!: ( setLayer BloomNoZWrite . setDepth 4.5 . color col $ circleSolid 3)