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
         }