Pass projectile object to draw function

src/Dodge/Render/Picture.hs

@@ -16,13 +16,13 @@ import qualified Data.IntMap.Strict as IM
 worldPictures :: World -> Picture
 worldPictures w = pictures $ concat 
     [ IM.elems $ _decorations w 
-    , map _pjPict  . IM.elems $ _projectiles w
+    , map (dbArg _pjDraw)  . IM.elems $ _projectiles w
     , map drawItem . IM.elems $ _floorItems w
     , map crDraw   . IM.elems $ _creatures w
     , map clDraw   . reverse . IM.elems $ _clouds w
     , map ppDraw   . IM.elems $ _pressPlates w
     , map btDraw (IM.elems (_buttons w))
-    , map (\pt -> _ptDraw pt pt) $ _particles w
+    , map (dbArg _ptDraw) $ _particles w
     , map drawWallFloor (wallFloorsToDraw w)
     , testPic w
     ]