Cleanup

2025-11-09 16:42:55 +00:00
parent 658da193b7
commit 7ae50adb55
3 changed files with 4 additions and 3 deletions
@@ -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)