about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--src/Xanthous/AI/Gormlak.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Xanthous/AI/Gormlak.hs b/src/Xanthous/AI/Gormlak.hs
index c9af68842635..68feb67ac227 100644
--- a/src/Xanthous/AI/Gormlak.hs
+++ b/src/Xanthous/AI/Gormlak.hs
@@ -36,7 +36,7 @@ stepGormlak pe@(Positioned pos creature) = do
       then do
         charPos <- use characterPosition
         if isUnit (pos `diffPositions` charPos)
-          then attackCharacter $> charPos
+          then attackCharacter $> pos
           else pure $ pos `stepTowards` charPos
     else do
       lines <- uses entities $ linesOfSight pos (Creature.visionRadius creature)