From 7ae50adb55fc3e7aba48a0d7f4e38adb50a3b721 Mon Sep 17 00:00:00 2001 From: justin Date: Sun, 9 Nov 2025 16:42:55 +0000 Subject: [PATCH] Cleanup --- src/Dodge/Creature/ChainUpdates.hs | 2 +- src/Dodge/Creature/ReaderUpdate.hs | 3 ++- src/Dodge/Placement/Instance/Door.hs | 2 +- 3 files changed, 4 insertions(+), 3 deletions(-) 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 ->