...

21 files changed, 81 insertions, 81 deletions

diff --git a/src/battle/src/Comm/CharacterTurn.elm b/src/battle/src/Comm/CharacterTurn.elm
index 9fd77d1..a6d32d7 100644
--- a/src/battle/src/Comm/CharacterTurn.elm
+++ b/src/battle/src/Comm/CharacterTurn.elm
@@ -24,9 +24,9 @@ import Struct.Model
 --------------------------------------------------------------------------------
 -- LOCAL -----------------------------------------------------------------------
 --------------------------------------------------------------------------------
-try_encoding : Struct.Model.Type -> (Maybe Json.Encode.Value)
-try_encoding model =
-   case (Struct.CharacterTurn.try_getting_active_character model.char_turn) of
+maybe_encode : Struct.Model.Type -> (Maybe Json.Encode.Value)
+maybe_encode model =
+   case (Struct.CharacterTurn.maybe_get_active_character model.char_turn) of
       (Just char) ->
          (Just
             (Json.Encode.object
@@ -66,8 +66,8 @@ try_encoding model =
 --------------------------------------------------------------------------------
 try : Struct.Model.Type -> (Maybe (Cmd Struct.Event.Type))
 try model =
-   (Comm.Send.try_sending
+   (Comm.Send.maybe_send
       model
       Constants.IO.character_turn_handler
-      try_encoding
+      maybe_encod
    )
diff --git a/src/battle/src/Comm/LoadBattle.elm b/src/battle/src/Comm/LoadBattle.elm
index 9099f1e..4c20b36 100644
--- a/src/battle/src/Comm/LoadBattle.elm
+++ b/src/battle/src/Comm/LoadBattle.elm
@@ -22,8 +22,8 @@ import Struct.Model
 --------------------------------------------------------------------------------
 -- LOCAL -----------------------------------------------------------------------
 --------------------------------------------------------------------------------
-try_encoding : Struct.Model.Type -> (Maybe Json.Encode.Value)
-try_encoding model =
+maybe_encode : Struct.Model.Type -> (Maybe Json.Encode.Value)
+maybe_encode model =
    (Just
       (Json.Encode.object
          [
@@ -54,8 +54,8 @@ try_encoding model =
 --------------------------------------------------------------------------------
 try : Struct.Model.Type -> (Maybe (Cmd Struct.Event.Type))
 try model =
-   (Comm.Send.try_sending
+   (Comm.Send.maybe_send
       model
       Constants.IO.map_loading_handler
-      try_encoding
+      maybe_encod
    )
diff --git a/src/battle/src/Comm/Send.elm b/src/battle/src/Comm/Send.elm
index 009b57e..0971bc8 100644
--- a/src/battle/src/Comm/Send.elm
+++ b/src/battle/src/Comm/Send.elm
@@ -1,4 +1,4 @@
-module Comm.Send exposing (try_sending)
+module Comm.Send exposing (maybe_send)
 
 -- Elm -------------------------------------------------------------------------
 import Http
@@ -73,14 +73,14 @@ decode =
 --------------------------------------------------------------------------------
 -- EXPORTED --------------------------------------------------------------------
 --------------------------------------------------------------------------------
-try_sending : (
+maybe_send : (
       Struct.Model.Type ->
       String ->
       (Struct.Model.Type -> (Maybe Json.Encode.Value)) ->
       (Maybe (Cmd Struct.Event.Type))
    )
-try_sending model recipient try_encoding_fun =
-   case (try_encoding_fun model) of
+maybe_send model recipient maybe_encod_fun =
+   case (maybe_encod_fun model) of
       (Just serial) ->
          (Just
             (Http.post
diff --git a/src/battle/src/Struct/CharacterTurn.elm b/src/battle/src/Struct/CharacterTurn.elm
index 825f29a..35c1720 100644
--- a/src/battle/src/Struct/CharacterTurn.elm
+++ b/src/battle/src/Struct/CharacterTurn.elm
@@ -8,7 +8,7 @@ module Struct.CharacterTurn exposing
       has_switched_weapons,
       get_path,
       get_state,
-      try_getting_target,
+      maybe_get_target,
       lock_path,
       unlock_path,
       show_attack_range_navigator,
@@ -16,8 +16,8 @@ module Struct.CharacterTurn exposing
       set_active_character,
       set_active_character_no_reset,
       set_navigator,
-      try_getting_active_character,
-      try_getting_navigator,
+      maybe_get_active_character,
+      maybe_get_navigator,
       encode
    )
 
@@ -73,8 +73,8 @@ new =
       has_switched_weapons = False
    }
 
-try_getting_active_character : Type -> (Maybe Struct.Character.Type)
-try_getting_active_character ct = ct.active_character
+maybe_get_active_character : Type -> (Maybe Struct.Character.Type)
+maybe_get_active_character ct = ct.active_character
 
 can_select_target : Type -> Bool
 can_select_target ct = (ct.state == MovedCharacter)
@@ -157,8 +157,8 @@ show_attack_range_navigator range_min range_max ct =
                   )
             }
 
-try_getting_navigator : Type -> (Maybe Struct.Navigator.Type)
-try_getting_navigator ct = ct.navigator
+maybe_get_navigator : Type -> (Maybe Struct.Navigator.Type)
+maybe_get_navigator ct = ct.navigator
 
 set_navigator : Struct.Navigator.Type -> Type -> Type
 set_navigator navigator ct =
@@ -199,8 +199,8 @@ set_target target ct =
             target = target
          }
 
-try_getting_target : Type -> (Maybe Int)
-try_getting_target ct = ct.target
+maybe_get_target : Type -> (Maybe Int)
+maybe_get_target ct = ct.target
 
 encode : Type -> (Json.Encode.Value)
 encode ct =
diff --git a/src/battle/src/Struct/MessageBoard.elm b/src/battle/src/Struct/MessageBoard.elm
index 4c3ad1c..08d4c75 100644
--- a/src/battle/src/Struct/MessageBoard.elm
+++ b/src/battle/src/Struct/MessageBoard.elm
@@ -3,7 +3,7 @@ module Struct.MessageBoard exposing
       Type,
       Message(..),
       display,
-      try_getting_current_message,
+      maybe_get_current_message,
       clear_current_message,
       new,
       clear
@@ -46,8 +46,8 @@ display message board =
             secondary_messages = (message :: board.secondary_messages)
          }
 
-try_getting_current_message : Type -> (Maybe Message)
-try_getting_current_message board =
+maybe_get_current_message : Type -> (Maybe Message)
+maybe_get_current_message board =
    case board.secondary_messages of
       [] -> board.main_message
       (secondary_message :: _) -> (Just secondary_message)
diff --git a/src/battle/src/Struct/Navigator.elm b/src/battle/src/Struct/Navigator.elm
index bfad3d2..072f682 100644
--- a/src/battle/src/Struct/Navigator.elm
+++ b/src/battle/src/Struct/Navigator.elm
@@ -13,8 +13,8 @@ module Struct.Navigator exposing
       lock_path,
       unlock_path,
       lock_path_with_new_attack_ranges,
-      try_adding_step,
-      try_getting_path_to
+      maybe_add_step,
+      maybe_get_path_to
    )
 
 -- Elm -------------------------------------------------------------------------
@@ -190,18 +190,18 @@ lock_path_with_new_attack_ranges range_min range_max navigator =
       locked_path = True
    }
 
-try_adding_step : (
+maybe_add_step : (
       BattleMap.Struct.Direction.Type ->
       Type ->
       (Maybe Type)
    )
-try_adding_step dir navigator =
+maybe_add_step dir navigator =
    if (navigator.locked_path)
    then
       Nothing
    else
       case
-         (Struct.Path.try_following_direction
+         (Struct.Path.maybe_follow_direction
             (navigator.tile_data_fun)
             (Just navigator.path)
             dir
@@ -211,12 +211,12 @@ try_adding_step dir navigator =
             (Just {navigator | path = path})
          Nothing -> Nothing
 
-try_getting_path_to : (
+maybe_get_path_to : (
       BattleMap.Struct.Location.Ref ->
       Type ->
       (Maybe (List BattleMap.Struct.Direction.Type))
    )
-try_getting_path_to loc_ref navigator =
+maybe_get_path_to loc_ref navigator =
    case (Dict.get loc_ref navigator.range_indicators) of
       (Just target) ->
          (Just (Struct.RangeIndicator.get_path target))
diff --git a/src/battle/src/Struct/Path.elm b/src/battle/src/Struct/Path.elm
index 0ae3bdf..c288103 100644
--- a/src/battle/src/Struct/Path.elm
+++ b/src/battle/src/Struct/Path.elm
@@ -5,7 +5,7 @@ module Struct.Path exposing
       get_current_location,
       get_remaining_points,
       get_summary,
-      try_following_direction
+      maybe_follow_direction
    )
 
 -- Elm -------------------------------------------------------------------------
@@ -51,14 +51,14 @@ has_been_to path location =
       )
    )
 
-try_moving_to : (
+maybe_mov_to : (
       Type ->
       BattleMap.Struct.Direction.Type ->
       BattleMap.Struct.Location.Type ->
       Int ->
       (Maybe Type)
    )
-try_moving_to path dir next_loc cost =
+maybe_mov_to path dir next_loc cost =
    let
       remaining_points = (path.remaining_points - cost)
    in
@@ -81,13 +81,13 @@ try_moving_to path dir next_loc cost =
       else
          Nothing
 
-try_backtracking_to : (
+maybe_backtrack_to : (
       Type ->
       BattleMap.Struct.Direction.Type ->
       BattleMap.Struct.Location.Type ->
       (Maybe Type)
    )
-try_backtracking_to path dir location =
+maybe_backtrack_to path dir location =
    case
       (
          (Util.List.pop path.previous_directions),
@@ -144,13 +144,13 @@ get_remaining_points path = path.remaining_points
 get_summary : Type -> (List BattleMap.Struct.Direction.Type)
 get_summary path = path.previous_directions
 
-try_following_direction : (
+maybe_follow_direction : (
       (BattleMap.Struct.Location.Type -> (Int, Int)) ->
       (Maybe Type) ->
       BattleMap.Struct.Direction.Type ->
       (Maybe Type)
    )
-try_following_direction tile_data_fun maybe_path dir =
+maybe_follow_direction tile_data_fun maybe_path dir =
    case maybe_path of
       (Just path) ->
          let
@@ -166,9 +166,9 @@ try_following_direction tile_data_fun maybe_path dir =
             then
                if (has_been_to path next_location)
                then
-                  (try_backtracking_to path dir next_location)
+                  (maybe_backtrack_to path dir next_location)
                else
-                  (try_moving_to
+                  (maybe_mov_to
                      path
                      dir
                      next_location
diff --git a/src/battle/src/Struct/Puppeteer.elm b/src/battle/src/Struct/Puppeteer.elm
index c68f10d..76447b2 100644
--- a/src/battle/src/Struct/Puppeteer.elm
+++ b/src/battle/src/Struct/Puppeteer.elm
@@ -9,7 +9,7 @@ module Struct.Puppeteer exposing
       step,
       get_is_playing_forward,
       set_is_playing_forward,
-      try_getting_current_action
+      maybe_get_current_action
    )
 
 -- Elm -------------------------------------------------------------------------
@@ -93,8 +93,8 @@ get_is_playing_forward puppeteer = puppeteer.is_playing_forward
 set_is_playing_forward : Bool -> Type -> Type
 set_is_playing_forward val puppeteer = {puppeteer | is_playing_forward = val}
 
-try_getting_current_action : Type -> (Maybe (Struct.PuppeteerAction.Type))
-try_getting_current_action puppeteer =
+maybe_get_current_action : Type -> (Maybe (Struct.PuppeteerAction.Type))
+maybe_get_current_action puppeteer =
    if (puppeteer.is_playing_forward)
    then (List.head puppeteer.forward_actions)
    else (List.head puppeteer.backward_actions)
diff --git a/src/battle/src/Struct/UI.elm b/src/battle/src/Struct/UI.elm
index ddb92ca..e1881ed 100644
--- a/src/battle/src/Struct/UI.elm
+++ b/src/battle/src/Struct/UI.elm
@@ -9,13 +9,13 @@ module Struct.UI exposing
       reset_zoom_level,
       mod_zoom_level,
       -- Tab
-      try_getting_displayed_tab,
+      maybe_get_displayed_tab,
       set_displayed_tab,
       reset_displayed_tab,
       to_string,
       get_all_tabs,
       -- Navigator
-      try_getting_displayed_nav,
+      maybe_get_displayed_nav,
       set_displayed_nav,
       reset_displayed_nav,
       -- Manual Controls
@@ -83,8 +83,8 @@ mod_zoom_level : Float -> Type -> Type
 mod_zoom_level mod ui = {ui | zoom_level = (mod * ui.zoom_level)}
 
 -- Tab -------------------------------------------------------------------------
-try_getting_displayed_tab : Type -> (Maybe Tab)
-try_getting_displayed_tab ui = ui.displayed_tab
+maybe_get_displayed_tab : Type -> (Maybe Tab)
+maybe_get_displayed_tab ui = ui.displayed_tab
 
 set_displayed_tab : Tab -> Type -> Type
 set_displayed_tab tab ui = {ui | displayed_tab = (Just tab)}
@@ -105,8 +105,8 @@ get_all_tabs =
    [StatusTab, CharactersTab, SettingsTab, TimelineTab]
 
 -- Navigator -------------------------------------------------------------------
-try_getting_displayed_nav : Type -> (Maybe Struct.Navigator.Type)
-try_getting_displayed_nav ui = ui.displayed_nav
+maybe_get_displayed_nav : Type -> (Maybe Struct.Navigator.Type)
+maybe_get_displayed_nav ui = ui.displayed_nav
 
 set_displayed_nav : Struct.Navigator.Type -> Type -> Type
 set_displayed_nav nav ui = {ui | displayed_nav = (Just nav)}
diff --git a/src/battle/src/Update/EndTurn.elm b/src/battle/src/Update/EndTurn.elm
index 56231a8..5cafc48 100644
--- a/src/battle/src/Update/EndTurn.elm
+++ b/src/battle/src/Update/EndTurn.elm
@@ -53,10 +53,10 @@ apply_to model =
    case
       (
          (Struct.CharacterTurn.get_state model.char_turn),
-         (Struct.CharacterTurn.try_getting_active_character
+         (Struct.CharacterTurn.maybe_get_active_character
             model.char_turn
          ),
-         (Struct.CharacterTurn.try_getting_navigator model.char_turn)
+         (Struct.CharacterTurn.maybe_get_navigator model.char_turn)
       )
    of
       (
diff --git a/src/battle/src/Update/Puppeteer.elm b/src/battle/src/Update/Puppeteer.elm
index 76aa1f9..206b411 100644
--- a/src/battle/src/Update/Puppeteer.elm
+++ b/src/battle/src/Update/Puppeteer.elm
@@ -121,7 +121,7 @@ apply_to : (
       (Struct.Model.Type, (Cmd Struct.Event.Type))
    )
 apply_to model =
-   case (Struct.Puppeteer.try_getting_current_action model.puppeteer) of
+   case (Struct.Puppeteer.maybe_get_current_action model.puppeteer) of
       Nothing -> (model, (Cmd.none))
       (Just action) ->
          case action of
diff --git a/src/battle/src/Update/RequestDirection.elm b/src/battle/src/Update/RequestDirection.elm
index fc7b63b..828f78f 100644
--- a/src/battle/src/Update/RequestDirection.elm
+++ b/src/battle/src/Update/RequestDirection.elm
@@ -26,7 +26,7 @@ make_it_so : (
       Struct.Model.Type
    )
 make_it_so model char navigator dir =
-   case (Struct.Navigator.try_adding_step dir navigator) of
+   case (Struct.Navigator.maybe_add_step dir navigator) of
       (Just new_navigator) ->
          {model |
             char_turn =
@@ -75,8 +75,8 @@ apply_to : (
 apply_to model dir =
    case
       (
-         (Struct.CharacterTurn.try_getting_navigator model.char_turn),
-         (Struct.CharacterTurn.try_getting_active_character model.char_turn)
+         (Struct.CharacterTurn.maybe_get_navigator model.char_turn),
+         (Struct.CharacterTurn.maybe_get_active_character model.char_turn)
       )
    of
       ((Just navigator), (Just char)) ->
diff --git a/src/battle/src/Update/SelectCharacter.elm b/src/battle/src/Update/SelectCharacter.elm
index c18bb35..57e1317 100644
--- a/src/battle/src/Update/SelectCharacter.elm
+++ b/src/battle/src/Update/SelectCharacter.elm
@@ -91,7 +91,7 @@ ctrl_or_focus_character model target_char_id target_char =
    then
       let
          nav =
-            (case (Struct.UI.try_getting_displayed_nav model.ui) of
+            (case (Struct.UI.maybe_get_displayed_nav model.ui) of
                (Just dnav) -> dnav
                Nothing ->
                   (get_character_navigator model.battle target_char)
@@ -137,13 +137,13 @@ can_target_character model target =
       &&
       (
          case
-            (Struct.CharacterTurn.try_getting_navigator
+            (Struct.CharacterTurn.maybe_get_navigator
                model.char_turn
             )
          of
             (Just nav) ->
                case
-                  (Struct.Navigator.try_getting_path_to
+                  (Struct.Navigator.maybe_get_path_to
                      (BattleMap.Struct.Location.get_ref
                         (Struct.Character.get_location target)
                      )
@@ -168,10 +168,10 @@ second_click_on model target_char_id =
       (Just target_char) ->
          case
             (
-               (Struct.CharacterTurn.try_getting_active_character
+               (Struct.CharacterTurn.maybe_get_active_character
                   model.char_turn
                ),
-               (Struct.CharacterTurn.try_getting_target model.char_turn)
+               (Struct.CharacterTurn.maybe_get_target model.char_turn)
             )
          of
             ((Just _), (Just char_turn_target_id)) ->
@@ -248,7 +248,7 @@ first_click_on : (
 first_click_on model target_char_id =
    if
    (
-      (Struct.CharacterTurn.try_getting_target model.char_turn)
+      (Struct.CharacterTurn.maybe_get_target model.char_turn)
       ==
       (Just target_char_id)
    )
diff --git a/src/battle/src/Update/SelectTab.elm b/src/battle/src/Update/SelectTab.elm
index 2a41303..86ef4e7 100644
--- a/src/battle/src/Update/SelectTab.elm
+++ b/src/battle/src/Update/SelectTab.elm
@@ -18,7 +18,7 @@ apply_to : (
       (Struct.Model.Type, (Cmd Struct.Event.Type))
    )
 apply_to model tab =
-   if ((Struct.UI.try_getting_displayed_tab model.ui) == (Just tab))
+   if ((Struct.UI.maybe_get_displayed_tab model.ui) == (Just tab))
    then
       (
          {model | ui = (Struct.UI.reset_displayed_tab model.ui)},
diff --git a/src/battle/src/Update/SelectTile.elm b/src/battle/src/Update/SelectTile.elm
index 4eb772a..529e956 100644
--- a/src/battle/src/Update/SelectTile.elm
+++ b/src/battle/src/Update/SelectTile.elm
@@ -19,15 +19,15 @@ import Struct.UI
 --------------------------------------------------------------------------------
 -- LOCAL -----------------------------------------------------------------------
 --------------------------------------------------------------------------------
-try_autopiloting : (
+maybe_autopilot : (
       BattleMap.Struct.Direction.Type ->
       (Maybe Struct.Navigator.Type) ->
       (Maybe Struct.Navigator.Type)
    )
-try_autopiloting dir maybe_navigator =
+maybe_autopilot dir maybe_navigator =
    case maybe_navigator of
       (Just navigator) ->
-         (Struct.Navigator.try_adding_step dir navigator)
+         (Struct.Navigator.maybe_add_step dir navigator)
 
       Nothing -> Nothing
 
@@ -77,11 +77,11 @@ go_to_another_tile : (
       (Struct.Model.Type, (Cmd Struct.Event.Type))
    )
 go_to_another_tile model char navigator loc_ref =
-   case (Struct.Navigator.try_getting_path_to loc_ref navigator) of
+   case (Struct.Navigator.maybe_get_path_to loc_ref navigator) of
       (Just path) ->
          case
             (List.foldr
-               (try_autopiloting)
+               (maybe_autopilot)
                (Just (Struct.Navigator.clear_path navigator))
                path
             )
@@ -165,8 +165,8 @@ apply_to : (
 apply_to model loc_ref =
    case
       (
-         (Struct.CharacterTurn.try_getting_navigator model.char_turn),
-         (Struct.CharacterTurn.try_getting_active_character model.char_turn)
+         (Struct.CharacterTurn.maybe_get_navigator model.char_turn),
+         (Struct.CharacterTurn.maybe_get_active_character model.char_turn)
       )
    of
       ((Just navigator), (Just char)) ->
diff --git a/src/battle/src/Update/SwitchWeapon.elm b/src/battle/src/Update/SwitchWeapon.elm
index 06d3472..0b4816f 100644
--- a/src/battle/src/Update/SwitchWeapon.elm
+++ b/src/battle/src/Update/SwitchWeapon.elm
@@ -18,8 +18,8 @@ make_it_so : Struct.Model.Type -> Struct.Model.Type
 make_it_so model =
    case
       (
-         (Struct.CharacterTurn.try_getting_active_character model.char_turn),
-         (Struct.CharacterTurn.try_getting_navigator model.char_turn)
+         (Struct.CharacterTurn.maybe_get_active_character model.char_turn),
+         (Struct.CharacterTurn.maybe_get_navigator model.char_turn)
       )
    of
       ((Just char), (Just nav)) ->
diff --git a/src/battle/src/Update/UndoAction.elm b/src/battle/src/Update/UndoAction.elm
index 3941535..1a53adb 100644
--- a/src/battle/src/Update/UndoAction.elm
+++ b/src/battle/src/Update/UndoAction.elm
@@ -53,7 +53,7 @@ get_character_navigator battle char =
 
 handle_reset_character_turn : Struct.Model.Type -> Struct.CharacterTurn.Type
 handle_reset_character_turn model =
-   case (Struct.CharacterTurn.try_getting_active_character model.char_turn) of
+   case (Struct.CharacterTurn.maybe_get_active_character model.char_turn) of
       Nothing -> model.char_turn
 
       (Just current_char) ->
@@ -76,7 +76,7 @@ handle_reset_character_turn model =
 
 handle_undo_switched_weapons : Struct.Model.Type -> Struct.CharacterTurn.Type
 handle_undo_switched_weapons model =
-   case (Struct.CharacterTurn.try_getting_active_character model.char_turn) of
+   case (Struct.CharacterTurn.maybe_get_active_character model.char_turn) of
       Nothing -> model.char_turn
 
       (Just char) ->
diff --git a/src/battle/src/View/Controlled.elm b/src/battle/src/View/Controlled.elm
index 003ec34..fe730fb 100644
--- a/src/battle/src/View/Controlled.elm
+++ b/src/battle/src/View/Controlled.elm
@@ -21,7 +21,7 @@ import View.Controlled.ManualControls
 --------------------------------------------------------------------------------
 has_a_path : Struct.CharacterTurn.Type -> Bool
 has_a_path char_turn =
-   case (Struct.CharacterTurn.try_getting_navigator char_turn) of
+   case (Struct.CharacterTurn.maybe_get_navigator char_turn) of
       (Just nav) -> ((Struct.Navigator.get_path nav) /= [])
       Nothing -> False
 
@@ -126,7 +126,7 @@ get_available_actions char_turn =
 get_html : Struct.CharacterTurn.Type -> Int -> (Html.Html Struct.Event.Type)
 get_html char_turn player_ix =
    case
-      (Struct.CharacterTurn.try_getting_active_character char_turn)
+      (Struct.CharacterTurn.maybe_get_active_character char_turn)
    of
       (Just char) ->
          (Html.div
diff --git a/src/battle/src/View/Controlled/CharacterCard.elm b/src/battle/src/View/Controlled/CharacterCard.elm
index 0d7eda1..2fea74c 100644
--- a/src/battle/src/View/Controlled/CharacterCard.elm
+++ b/src/battle/src/View/Controlled/CharacterCard.elm
@@ -207,7 +207,7 @@ get_movement_bar : (
       (Html.Html Struct.Event.Type)
    )
 get_movement_bar char_turn char =
-   case (Struct.CharacterTurn.try_getting_active_character char_turn) of
+   case (Struct.CharacterTurn.maybe_get_active_character char_turn) of
       (Just active_char) ->
          if
          (
@@ -217,7 +217,7 @@ get_movement_bar char_turn char =
          )
          then
             (get_active_movement_bar
-               (Struct.CharacterTurn.try_getting_navigator char_turn)
+               (Struct.CharacterTurn.maybe_get_navigator char_turn)
                active_char
             )
          else
diff --git a/src/battle/src/View/MessageBoard.elm b/src/battle/src/View/MessageBoard.elm
index 8a47b40..aebda2a 100644
--- a/src/battle/src/View/MessageBoard.elm
+++ b/src/battle/src/View/MessageBoard.elm
@@ -35,6 +35,6 @@ display model message =
 --------------------------------------------------------------------------------
 get_html : Struct.Model.Type -> (Html.Html Struct.Event.Type)
 get_html model =
-   case (Struct.MessageBoard.try_getting_current_message model.message_board) of
+   case (Struct.MessageBoard.maybe_get_current_message model.message_board) of
       Nothing -> (Util.Html.nothing)
       (Just message) -> (display model message)
diff --git a/src/battle/src/View/SubMenu.elm b/src/battle/src/View/SubMenu.elm
index dea0a86..5cb1b84 100644
--- a/src/battle/src/View/SubMenu.elm
+++ b/src/battle/src/View/SubMenu.elm
@@ -54,7 +54,7 @@ get_inner_html model tab =
 --------------------------------------------------------------------------------
 get_html : Struct.Model.Type -> (Html.Html Struct.Event.Type)
 get_html model =
-   case (Struct.UI.try_getting_displayed_tab model.ui) of
+   case (Struct.UI.maybe_get_displayed_tab model.ui) of
       (Just tab) ->
          (Html.div
             [(Html.Attributes.class "sub-menu")]
@@ -62,7 +62,7 @@ get_html model =
          )
 
       Nothing ->
-         case (Struct.CharacterTurn.try_getting_target model.char_turn) of
+         case (Struct.CharacterTurn.maybe_get_target model.char_turn) of
             (Just char_ref) ->
                case (Array.get char_ref model.characters) of
                   (Just char) ->