about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--users/grfn/xanthous/src/Xanthous/AI/Gormlak.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/users/grfn/xanthous/src/Xanthous/AI/Gormlak.hs b/users/grfn/xanthous/src/Xanthous/AI/Gormlak.hs
index 59be5383de55..629798da3c52 100644
--- a/users/grfn/xanthous/src/Xanthous/AI/Gormlak.hs
+++ b/users/grfn/xanthous/src/Xanthous/AI/Gormlak.hs
@@ -87,6 +87,7 @@ stepGormlak ticks pe@(Positioned pos creature) = do
         else pure pe
 
   dest <- maybe (selectDestination pos creature) pure
+         . mfilter (\(Destination p _) -> p /= pos)
          $ creature ^. field @"_hippocampus" . destination
   let progress' =
         dest ^. destinationProgress