Adds "Main Menu" buttons.

4 files changed, 6 insertions, 14 deletions

diff --git a/src/login/src/Action/Session.elm b/src/login/src/Action/Session.elm
deleted file mode 100644
index 1074cd7..0000000
--- a/src/login/src/Action/Session.elm
+++ /dev/null
@@ -1,8 +0,0 @@
-port module Action.Session exposing (..)
-
-import Struct.Event
-
-port store_new_session : (String, String) -> (Cmd msg)
-port reset_session : () -> (Cmd msg)
-port connected: (() -> msg) -> (Sub msg)
-port go_to : (String) -> (Cmd msg)
diff --git a/src/login/src/ElmModule/Subscriptions.elm b/src/login/src/ElmModule/Subscriptions.elm
index 08ba697..9376f89 100644
--- a/src/login/src/ElmModule/Subscriptions.elm
+++ b/src/login/src/ElmModule/Subscriptions.elm
@@ -3,7 +3,7 @@ module ElmModule.Subscriptions exposing (..)
 -- Elm -------------------------------------------------------------------------
 
 -- Main Menu -------------------------------------------------------------------
-import Action.Session
+import Action.Ports
 
 import Struct.Model
 import Struct.Event
@@ -16,4 +16,4 @@ import Struct.Event
 --------------------------------------------------------------------------------
 subscriptions : Struct.Model.Type -> (Sub Struct.Event.Type)
 subscriptions model =
-   (Action.Session.connected (always Struct.Event.Connected))
+   (Action.Ports.connected (always Struct.Event.Connected))
diff --git a/src/login/src/Update/HandleConnected.elm b/src/login/src/Update/HandleConnected.elm
index 5d1284d..62fd243 100644
--- a/src/login/src/Update/HandleConnected.elm
+++ b/src/login/src/Update/HandleConnected.elm
@@ -2,7 +2,7 @@ module Update.HandleConnected exposing (apply_to)
 -- Elm -------------------------------------------------------------------------
 
 -- Login -----------------------------------------------------------------------
-import Action.Session
+import Action.Ports
 
 import Constants.IO
 
@@ -21,5 +21,5 @@ apply_to : Struct.Model.Type -> (Struct.Model.Type, (Cmd Struct.Event.Type))
 apply_to model =
    (
       model,
-      (Action.Session.go_to (Constants.IO.base_url ++"/main-menu/"))
+      (Action.Ports.go_to (Constants.IO.base_url ++"/main-menu/"))
    )
diff --git a/src/login/src/Update/HandleServerReply.elm b/src/login/src/Update/HandleServerReply.elm
index 8720457..f079b33 100644
--- a/src/login/src/Update/HandleServerReply.elm
+++ b/src/login/src/Update/HandleServerReply.elm
@@ -8,7 +8,7 @@ import Dict
 import Http
 
 -- Map -------------------------------------------------------------------
-import Action.Session
+import Action.Ports
 
 import Struct.Error
 import Struct.Event
@@ -49,7 +49,7 @@ set_session pid stk current_state =
             },
             Nothing,
             (
-               (Action.Session.store_new_session (pid, stk))
+               (Action.Ports.store_new_session (pid, stk))
                :: cmd_list
             )
          )