From 66046080f92a3a7686e0414de35395f47064daca Mon Sep 17 00:00:00 2001 From: nsensfel Date: Mon, 19 Feb 2018 20:08:13 +0100 Subject: It compiles once more. --- src/battlemap/src/ElmModule/View.elm | 3 --- src/battlemap/src/View/Footer.elm | 11 +++++++---- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/src/battlemap/src/ElmModule/View.elm b/src/battlemap/src/ElmModule/View.elm index a1f950d..63e382f 100644 --- a/src/battlemap/src/ElmModule/View.elm +++ b/src/battlemap/src/ElmModule/View.elm @@ -1,13 +1,10 @@ module ElmModule.View exposing (view) -- Elm ------------------------------------------------------------------------- -import Dict - import Html import Html.Attributes -- Battlemap ------------------------------------------------------------------- -import Struct.UI import Struct.Event import Struct.Model diff --git a/src/battlemap/src/View/Footer.elm b/src/battlemap/src/View/Footer.elm index 84073d5..470d63a 100644 --- a/src/battlemap/src/View/Footer.elm +++ b/src/battlemap/src/View/Footer.elm @@ -34,11 +34,12 @@ inventory_button = get_navigator_info : ( Struct.Model.Type -> + Struct.Character.Type -> String ) get_navigator_info model char = case - (Struct.CharacterTurn.try_getting_active_character model.char_turn) + (Struct.CharacterTurn.try_getting_navigator model.char_turn) of (Just nav) -> ( @@ -106,9 +107,11 @@ get_curr_char_info_htmls model char = _ -> [ (Html.text - "Error: CharacterTurn structure in an inconsistent state:" - ++ " Has an active character yet the 'state' is not any of those" - ++ " expected in such cases." + ( + "Error: CharacterTurn structure in an inconsistent state:" + ++ " Has an active character yet the 'state' is not any of" + ++ " those expected in such cases." + ) ) ] -- cgit v1.2.3-70-g09d2