Work on crab corpse

src/Dodge/Creature/Update.hs

@@ -1,6 +1,7 @@
 {-# LANGUAGE LambdaCase #-}
 module Dodge.Creature.Update (updateCreature) where
 
+import Dodge.Creature.Picture
 import Dodge.Base.You
 import Control.Monad
 import Color
@@ -8,7 +9,6 @@ import qualified Data.IntMap.Strict as IM
 import Data.Maybe
 import Dodge.Barreloid
 -- import Dodge.Base.NewID
-import Dodge.Corpse.Make
 import Dodge.Creature.Action
 import Dodge.Creature.State
 import Dodge.Creature.State.WalkCycle
@@ -56,7 +56,7 @@ updateLivingCreature cr =
                 over (cWorld . lWorld . creatures . ix cid) (chaseCritInternal w) w
         CrabCrit{} -> \w ->
             crUpdate cid . performActions cid $
-                (crabCritInternal cid) w
+                crabCritInternal cid w
         AutoCrit {} -> crUpdate cid
         SwarmCrit {} -> crUpdate cid
         HoverCrit {} -> \w ->