Unify matrix uniform assignment, move towards uniform block

src/Dodge/Item/Weapon.hs

@@ -830,7 +830,7 @@ explodeRemoteRocket
     -> World
 explodeRemoteRocket itid pjid w
     = set (projectiles . ix pjid . pjUpdate) (\_ -> retireRemoteRocket itid 30 pjid)
-    $ set (projectiles . ix pjid . pjDraw) (\_ -> blank)
+    $ set (projectiles . ix pjid . pjDraw) (const blank)
     $ set (itPoint . itUse) (\_ _ -> id)
     $ resetName
     $ makeExplosionAt (_pjPos (_projectiles w IM.! pjid)) w
@@ -850,7 +850,7 @@ throwRemoteBomb cr w = setLocation
         { _pjPos = p
         , _pjStartPos = p
         , _pjVel = v
-        , _pjDraw = \_ -> blank
+        , _pjDraw = const blank
         , _pjID = i
         , _pjUpdate = \_ -> moveRemoteBomb itid 50 i
         }

src/Dodge/Item/Weapon/Booster.hs

@@ -97,7 +97,7 @@ drawBoostShockwave pj = setLayer 1 $ onLayer UPtLayer $ pictures $
         r <- safeHead xs
         return $ color (snd $ last lpairs) $ uncurry translate hp 
             $ arc (argV hv - pi/2) (argV hv + pi/2) $ r * magV hv
-    cols = map (flip withAlpha white) [0,0.05..]
+    cols = map (`withAlpha` white) [0,0.05..]
     lpairs = zip (reverse lps) cols
     pvs = _pjPoints pj
     t = _pjTimer pj