From 04e4ce4137fe3ffb0ccc6dc8635db3e202517945 Mon Sep 17 00:00:00 2001 From: nsensfel Date: Mon, 10 Sep 2018 12:29:33 +0200 Subject: Adds missing navigation.js, error on MM. --- src/main-menu/src/ElmModule/View.elm | 15 +++++++++++++++ src/main-menu/www/index.html | 2 ++ 2 files changed, 17 insertions(+) (limited to 'src/main-menu') diff --git a/src/main-menu/src/ElmModule/View.elm b/src/main-menu/src/ElmModule/View.elm index 3ccb5aa..7e7d114 100644 --- a/src/main-menu/src/ElmModule/View.elm +++ b/src/main-menu/src/ElmModule/View.elm @@ -4,7 +4,11 @@ module ElmModule.View exposing (view) import Html import Html.Attributes +-- Shared ---------------------------------------------------------------------- +import Util.Html + -- Main Menu ------------------------------------------------------------------- +import Struct.Error import Struct.Event import Struct.Model import Struct.Player @@ -49,6 +53,17 @@ view model = ), (View.MapListing.get_html (Struct.Player.get_maps model.player)) ] + ), + ( + case model.error of + Nothing -> (Util.Html.nothing) + (Just err) -> + (Html.div + [] + [ + (Html.text (Struct.Error.to_string err)) + ] + ) ) ] ) diff --git a/src/main-menu/www/index.html b/src/main-menu/www/index.html index b6a77e9..6b87f22 100644 --- a/src/main-menu/www/index.html +++ b/src/main-menu/www/index.html @@ -9,6 +9,7 @@ + -- cgit v1.2.3-70-g09d2