Make creature update an external function

src/Dodge/Update.hs

@@ -5,6 +5,7 @@ Description : Simulation update
 -}
 module Dodge.Update ( updateUniverse ) where
 import Dodge.Data
+import Dodge.Creature.Update
 import Dodge.RadarSweep
 import Dodge.PosEvent
 import Dodge.Spark
@@ -94,7 +95,7 @@ functionalUpdate cfig w = checkEndGame
     . updateIMl' _terminals tmUpdate
 --    . updateIMl _machines mcChooseUpdate
     . updateIMl' _machines updateMachine
-    . updateIMl _creatures _crUpdate 
+    . updateIMl' _creatures updateCreature 
         -- creatures should be updated early so that crOldPos is set before any position change
     . over creatures (fmap setOldPos)
     . updateCreatureGroups