| summaryrefslogtreecommitdiff |
diff options
| author | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2017-09-23 20:26:52 +0200 |
|---|---|---|
| committer | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2017-09-23 20:26:52 +0200 |
| commit | 568309d0cfb5114accbc21962d5d23c3b9bf7036 (patch) | |
| tree | 3db7174f104eba060dd1e6b545c74f984e209139 /client/elm/battlemap/src/Battlemap/Html.elm | |
| parent | dbad54ad228df4b70f56bf6be1380b6ae3064ac3 (diff) | |
Fixes "Too much recursion" and some similar issues
Diffstat (limited to 'client/elm/battlemap/src/Battlemap/Html.elm')
| -rw-r--r-- | client/elm/battlemap/src/Battlemap/Html.elm | 19 |
1 files changed, 8 insertions, 11 deletions
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 = |