summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/battle/src/View/Map.elm')
-rw-r--r-- | src/battle/src/View/Map.elm | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/src/battle/src/View/Map.elm b/src/battle/src/View/Map.elm index dc0c770..d95aa21 100644 --- a/src/battle/src/View/Map.elm +++ b/src/battle/src/View/Map.elm @@ -99,17 +99,16 @@ maybe_print_navigator interactive maybe_nav = get_characters_html : ( Struct.Model.Type -> - (Array.Array Struct.Character.Type) -> (Html.Html Struct.Event.Type) ) -get_characters_html model characters = +get_characters_html model = (Html.div [ (Html.Attributes.class "characters") ] (List.map (View.Map.Character.get_html model) - (Array.toList model.characters) + (Array.toList (Struct.Battle.get_characters model.battle)) ) ) @@ -142,10 +141,8 @@ get_html model = ) ] [ - (Html.Lazy.lazy (get_tiles_html) model.map), - -- Not in lazy mode, because I can't easily get rid of that 'model' - -- parameter. - (get_characters_html model model.characters), + (Html.Lazy.lazy (get_tiles_html) model.battle.map), + (Html.Lazy.lazy (get_characters_html model)), (Html.Lazy.lazy2 (maybe_print_navigator) True @@ -154,7 +151,7 @@ get_html model = (Html.Lazy.lazy2 (maybe_print_navigator) False - (Struct.UI.try_getting_displayed_nav model.ui) + model.ui.displayed_nav ) ] ) |