Add test tileset textures

src/Dodge/Item/Weapon/UseEffect.hs

@@ -126,7 +126,7 @@ tractorBeamAt colID i pos dir = Projectile
     { _pjPos = pos
     , _pjStartPos = p'
     , _pjVel = d
-    , _pjDraw = \_ -> blank
+    , _pjDraw = const blank
     , _pjID = i
     , _pjUpdate = \_ -> updateTractor colID 10 i
     }
@@ -139,7 +139,7 @@ The interaction of this with objects, walls etc needs more thought.  -}
 updateTractor :: Int -> Int -> Int -> World -> World
 updateTractor colID time i w
     | time > 0 = set (projectiles . ix i . pjUpdate) (\_ -> updateTractor colID (time-1) i) 
-                    $ set (projectiles . ix i . pjDraw) (\_ -> pic)
+                    $ set (projectiles . ix i . pjDraw) (const pic)
                     $ over creatures (IM.map tractCr) 
                     $ over floorItems (IM.map tractFlIt) 
                         w