| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/Update/HandleServerReply.elm')
| -rw-r--r-- | src/Update/HandleServerReply.elm | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/src/Update/HandleServerReply.elm b/src/Update/HandleServerReply.elm index d68496c..271ecfb 100644 --- a/src/Update/HandleServerReply.elm +++ b/src/Update/HandleServerReply.elm @@ -4,13 +4,9 @@ module Update.HandleServerReply exposing (apply_to) import Http -- Shared ---------------------------------------------------------------------- -import Action.Ports - import Struct.Flags -- Main Menu ------------------------------------------------------------------- -import Constants.IO - import Struct.Error import Struct.Event import Struct.Model @@ -24,40 +20,6 @@ import Struct.ServerReply -------------------------------------------------------------------------------- -- LOCAL ----------------------------------------------------------------------- -------------------------------------------------------------------------------- -disconnected : ( - (Struct.Model.Type, (List (Cmd Struct.Event.Type))) -> - (Struct.Model.Type, (List (Cmd Struct.Event.Type))) - ) -disconnected current_state = - let (model, cmds) = current_state in - ( - model, - [ - (Action.Ports.go_to - ( - Constants.IO.base_url - ++ "/login/?action=disconnect&goto=" - ++ - (Http.encodeUri - ( - "/main-menu/?" - ++ (Struct.Flags.get_params_as_url model.flags) - ) - ) - ) - ) - ] - ) - -set_player : ( - Struct.Player.Type -> - (Struct.Model.Type, (List (Cmd Struct.Event.Type))) -> - (Struct.Model.Type, (List (Cmd Struct.Event.Type))) - ) -set_player player current_state = - let (model, cmds) = current_state in - ({model | player = player}, cmds) - apply_command : ( Struct.ServerReply.Type -> (Struct.Model.Type, (List (Cmd Struct.Event.Type))) -> @@ -65,8 +27,6 @@ apply_command : ( ) apply_command command current_state = case command of - Struct.ServerReply.Disconnected -> (disconnected current_state) - (Struct.ServerReply.SetPlayer player) -> (set_player player current_state) Struct.ServerReply.Okay -> current_state -------------------------------------------------------------------------------- |