Refactor creature draw, pass World to function

2021-05-25 21:44:25 +02:00
parent 28386ec8b9
commit d4a15a2416
10 changed files with 48 additions and 37 deletions
@@ -80,7 +80,7 @@ defaultCreature = Creature
    , _crVel    = (0,0)
    , _crDir    = 0
    , _crID     = 1
-    , _crPict   = const $ onLayer CrLayer $ circleSolid 10
+    , _crPict   = \_ _ -> onLayer CrLayer $ circleSolid 10
    , _crUpdate = \ _ f cr -> (f , Just cr)
    , _crRad    = 10
    , _crMass   = 10