Make creatures rotate when falling down chasms

src/Dodge/Creature/Update.hs

@@ -1,6 +1,7 @@
 {-# LANGUAGE LambdaCase #-}
 module Dodge.Creature.Update (updateCreature) where
 
+import qualified Quaternion as Q
 import Dodge.Creature.Picture
 import Dodge.Base.You
 import Control.Monad
@@ -127,9 +128,9 @@ startDeathTimer cr = cr
 
 toDeathCarriage :: Carriage -> Carriage
 toDeathCarriage = \case
-    Flying {} -> Falling
+    Flying {} -> Falling Q.qid Q.qid
     Walking -> OnGround
-    _ -> Falling
+    _ -> Falling Q.qid Q.qid
 
 -- could look at the amount of damage here (given by maxDamage) too
 corpseOrGib :: Creature -> World -> World