Move towards a simplified creature update

2021-12-09 18:16:31 +00:00
parent e1a9327c06
commit bd94044445
14 changed files with 50 additions and 39 deletions
@@ -19,7 +19,7 @@ import Control.Lens
 import qualified Data.IntMap.Strict as IM
 import qualified Data.Vector as V
 import Data.List
-import Data.Monoid
+--import Data.Monoid
 defaultCreature :: Creature
 defaultCreature = Creature
    { _crPos    = V2 0 0
@@ -31,7 +31,7 @@ defaultCreature = Creature
    , _crTwist  = 0
    , _crID     = 1
    , _crPict   = \_ _ _ -> (,) mempty blank
-    , _crUpdate = \cr _ -> (Endo id , Just cr)
+    , _crUpdate = const id
    , _crRad    = 10
    , _crMass   = 10
    , _crHP     = 100