Steps towards making clouds list based

2021-07-21 00:05:13 +02:00
parent af44a380fc
commit 7b45a4a295
7 changed files with 65 additions and 67 deletions
@@ -23,7 +23,7 @@ worldPictures w = pictures $ concat
    , map (dbArg _pjDraw)  . IM.elems $ _projectiles w
    , map drawItem . IM.elems $ _floorItems w
    , map (crDraw w) . IM.elems $ _creatures w
-    , map clDraw   . reverse . IM.elems $ _clouds w
+    , map clDraw   . reverse $ _clouds w
    , map ppDraw   . IM.elems $ _pressPlates w
    , map btDraw (IM.elems (_buttons w))
    , map (dbArg _ptDraw) $ _particles w