1 files changed, 0 insertions, 95 deletions
diff --git a/src/character/src/View/SubMenu/Timeline.elm b/src/character/src/View/SubMenu/Timeline.elm
deleted file mode 100644
index 7fb1813..0000000
--- a/src/character/src/View/SubMenu/Timeline.elm
+++ /dev/null
@@ -1,95 +0,0 @@
-module View.SubMenu.Timeline exposing (get_html)
-
--- Elm -------------------------------------------------------------------------
-import Array
-
-import Html
-import Html.Attributes
---import Html.Events
-import Html.Lazy
-
--- Map -------------------------------------------------------------------
-import Struct.Character
-import Struct.Event
-import Struct.TurnResult
-import Struct.Model
-
-import View.SubMenu.Timeline.Attack
-import View.SubMenu.Timeline.Movement
-import View.SubMenu.Timeline.WeaponSwitch
-import View.SubMenu.Timeline.PlayerVictory
-import View.SubMenu.Timeline.PlayerDefeat
-import View.SubMenu.Timeline.PlayerTurnStart
-
---------------------------------------------------------------------------------
--- LOCAL -----------------------------------------------------------------------
---------------------------------------------------------------------------------
-get_turn_result_html : (
-      (Array.Array Struct.Character.Type) ->
-      Int ->
-      Struct.TurnResult.Type ->
-      (Html.Html Struct.Event.Type)
-   )
-get_turn_result_html characters player_ix turn_result =
-   case turn_result of
-      (Struct.TurnResult.Moved movement) ->
-         (View.SubMenu.Timeline.Movement.get_html
-            characters
-            player_ix
-            movement
-         )
-
-      (Struct.TurnResult.Attacked attack) ->
-         (View.SubMenu.Timeline.Attack.get_html
-            characters
-            player_ix
-            attack
-         )
-
-      (Struct.TurnResult.SwitchedWeapon weapon_switch) ->
-         (View.SubMenu.Timeline.WeaponSwitch.get_html
-            characters
-            player_ix
-            weapon_switch
-         )
-
-      (Struct.TurnResult.PlayerWon pvict) ->
-         (View.SubMenu.Timeline.PlayerVictory.get_html pvict)
-
-      (Struct.TurnResult.PlayerLost pdefeat) ->
-         (View.SubMenu.Timeline.PlayerDefeat.get_html pdefeat)
-
-      (Struct.TurnResult.PlayerTurnStarted pturns) ->
-         (View.SubMenu.Timeline.PlayerTurnStart.get_html pturns)
-
-true_get_html : (
-      (Array.Array Struct.Character.Type) ->
-      Int ->
-      (Array.Array Struct.TurnResult.Type) ->
-      (Html.Html Struct.Event.Type)
-   )
-true_get_html characters player_ix turn_results =
-   (Html.div
-      [
-         (Html.Attributes.class "battle-tabmenu-content"),
-         (Html.Attributes.class "battle-tabmenu-timeline-tab")
-      ]
-      (Array.toList
-         (Array.map
-            (get_turn_result_html characters player_ix)
-            turn_results
-         )
-      )
-   )
-
---------------------------------------------------------------------------------
--- EXPORTED --------------------------------------------------------------------
---------------------------------------------------------------------------------
-get_html : Struct.Model.Type -> (Html.Html Struct.Event.Type)
-get_html model =
-   (Html.Lazy.lazy3
-      (true_get_html)
-      model.characters
-      model.player_ix
-      model.timeline
-   )