Make creature update an external function

src/Dodge/Creature/Update.hs

@@ -3,10 +3,23 @@ import Dodge.Data
 import Dodge.Creature.State
 import Dodge.Creature.Impulse
 import Dodge.Creature.ChainUpdates
+import Dodge.Lampoid
+import Dodge.Humanoid
+import Dodge.Turretoid
+import Dodge.Barreloid
 import LensHelp
 
 import System.Random
 
+updateCreature :: Creature -> World -> World
+updateCreature cr = case _crType cr of
+    Lampoid{}   -> updateLampoid cr
+    Humanoid{}  -> updateHumanoid cr
+    Turretoid{} -> updateTurretoid cr
+    Barreloid{} -> updateBarreloid cr
+    NonDrawnCreature -> id
+    
+
 -- bit of a hack to get new random generators after each creature's update
 defaultImpulsive :: [World -> Creature -> Creature]
     -> Creature -> World -> World