From 2d54254e59289c452777fccb1f4d00b56eb7e451 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Wed, 27 Sep 2017 11:31:17 +0200
Subject: Improves error msgs & UI controls.

---
 elm/battlemap/src/Error.elm | 28 ++++++++++++++++++++++++++--
 1 file changed, 26 insertions(+), 2 deletions(-)

(limited to 'elm/battlemap/src/Error.elm')

diff --git a/elm/battlemap/src/Error.elm b/elm/battlemap/src/Error.elm
index e2906dc..581bb24 100644
--- a/elm/battlemap/src/Error.elm
+++ b/elm/battlemap/src/Error.elm
@@ -1,5 +1,29 @@
-module Error exposing (Type(..))
+module Error exposing (Type, Mode(..), new, to_string)
 
-type Type =
+type Mode =
    IllegalAction
    | Programming
+
+type alias Type =
+   {
+      mode: Mode,
+      message: String
+   }
+
+new : Mode -> String -> Type
+new mode str =
+   {
+      mode = mode,
+      message = str
+   }
+
+to_string : Type -> String
+to_string e =
+   (
+      (case e.mode of
+         IllegalAction -> "Request discarded: "
+         Programming -> "Error in the program (please report): "
+      )
+      ++ e.message
+   )
+
-- 
cgit v1.2.3-70-g09d2