Cleanup

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

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)
 

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 ->