From d2b5c94b717e2d1b7b73a74a1f1ec6af70890a96 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Wed, 27 Sep 2017 10:48:49 +0200
Subject: Small cleanups.

---
 elm/battlemap/src/Battlemap/Navigator/Move.elm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'elm/battlemap/src/Battlemap/Navigator/Move.elm')

diff --git a/elm/battlemap/src/Battlemap/Navigator/Move.elm b/elm/battlemap/src/Battlemap/Navigator/Move.elm
index 924f715..9d7a17b 100644
--- a/elm/battlemap/src/Battlemap/Navigator/Move.elm
+++ b/elm/battlemap/src/Battlemap/Navigator/Move.elm
@@ -111,7 +111,11 @@ to : (
 to battlemap nav dir char_list =
    let
       next_location = (Battlemap.Location.neighbor nav.current_location dir)
-      is_occupied = (List.any (\c -> (c.location == next_location)) char_list)
+      is_occupied =
+         (List.any
+            (\c -> ((Character.get_location c) == next_location))
+            char_list
+         )
    in
       if (not is_occupied)
       then
-- 
cgit v1.2.3-70-g09d2