1 files changed, 38 insertions, 0 deletions
diff --git a/src/roster-editor/src/View/SubMenu/Timeline/PlayerDefeat.elm b/src/roster-editor/src/View/SubMenu/Timeline/PlayerDefeat.elm
new file mode 100644
index 0000000..db5e023
--- /dev/null
+++ b/src/roster-editor/src/View/SubMenu/Timeline/PlayerDefeat.elm
@@ -0,0 +1,38 @@
+module View.SubMenu.Timeline.PlayerDefeat exposing (get_html)
+
+-- Elm -------------------------------------------------------------------------
+import Html
+import Html.Attributes
+--import Html.Events
+
+-- Map -------------------------------------------------------------------
+import Struct.Event
+import Struct.TurnResult
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_html : (
+      Struct.TurnResult.PlayerDefeat ->
+      (Html.Html Struct.Event.Type)
+   )
+get_html pdefeat =
+   (Html.div
+      [
+         (Html.Attributes.class "battle-timeline-element"),
+         (Html.Attributes.class "battle-timeline-player-defeat")
+      ]
+      [
+         (Html.text
+            (
+               "Player "
+               ++ (toString pdefeat.player_index)
+               ++ " has been eliminated."
+            )
+         )
+      ]
+   )