From 568309d0cfb5114accbc21962d5d23c3b9bf7036 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Sat, 23 Sep 2017 20:26:52 +0200
Subject: Fixes "Too much recursion" and some similar issues

---
 client/elm/battlemap/src/Battlemap/Html.elm | 19 ++++++++-----------
 1 file changed, 8 insertions(+), 11 deletions(-)

(limited to 'client/elm/battlemap/src/Battlemap/Html.elm')

diff --git a/client/elm/battlemap/src/Battlemap/Html.elm b/client/elm/battlemap/src/Battlemap/Html.elm
index e474901..f67bdf0 100644
--- a/client/elm/battlemap/src/Battlemap/Html.elm
+++ b/client/elm/battlemap/src/Battlemap/Html.elm
@@ -35,7 +35,13 @@ view_battlemap_cell t =
          (Html.td
             []
             [
-               (Html.text "[_]"),
+               (Html.text
+                  (case t.mod_level of
+                     Nothing -> "[_]"
+                     (Just Battlemap.Tile.CanBeReached) -> "[M]"
+                     (Just Battlemap.Tile.CanBeAttacked) -> "[A]"
+                  )
+               ),
                (Html.text (nav_level_to_text t))
             ]
          )
@@ -73,16 +79,7 @@ grid_builder_to_html gb =
    then
       gb.columns
    else
-      (grid_builder_to_html
-         {gb |
-            row = [],
-            row_size = 0,
-            columns =
-               (
-                  (Html.tr [] gb.row) :: gb.columns
-               )
-         }
-      )
+     ((Html.tr [] gb.row) :: gb.columns)
 
 view : Battlemap.Type -> (Html.Html Update.Type)
 view battlemap =
-- 
cgit v1.2.3-70-g09d2