diff --git a/src/Dodge/Creature/ChainUpdates.hs b/src/Dodge/Creature/ChainUpdates.hs
index 541d27868..51d8f3e74 100644
--- a/src/Dodge/Creature/ChainUpdates.hs
+++ b/src/Dodge/Creature/ChainUpdates.hs
@@ -1,4 +1,4 @@
-module Dodge.Creature.ChainUpdates where
+module Dodge.Creature.ChainUpdates (chainCreatureUpdates) where
 
 import Data.Foldable
 import Dodge.Data.World
diff --git a/src/Dodge/Creature/ReaderUpdate.hs b/src/Dodge/Creature/ReaderUpdate.hs
index 1c6e6c2e7..68870b2b8 100644
--- a/src/Dodge/Creature/ReaderUpdate.hs
+++ b/src/Dodge/Creature/ReaderUpdate.hs
@@ -67,7 +67,8 @@ setMvPos w cr = cr & crIntention . mvToPoint .~ mpos
     mpos = mtpos <|> _mvToPoint int
 
 setViewPos :: World -> Creature -> Creature
-setViewPos w cr = cr & crIntention . viewPoint %~ ((<|> mpos) . (attentionViewPoint w cr <|>))
+setViewPos w cr = cr 
+    & crIntention . viewPoint %~ ((<|> mpos) . (attentionViewPoint w cr <|>))
   where
     mpos = listToMaybe (_soundsToInvestigate $ _crMemory cr)
 
diff --git a/src/Dodge/Placement/Instance/Door.hs b/src/Dodge/Placement/Instance/Door.hs
index 0f59011c8..4555c52ca 100644
--- a/src/Dodge/Placement/Instance/Door.hs
+++ b/src/Dodge/Placement/Instance/Door.hs
@@ -39,7 +39,7 @@ putDoubleDoorThen wl cond soff a b speed cont =
             doorBetween wl cond soff b half speed $
                 \pl2 -> cont pl1 pl2
   where
-    half = 0.5 *.* (a +.+ b)
+    half = 0.5 *^ (a + b)
 
 doorBetween ::
     Wall ->