Redirects to login (and back) if disconnected.

2 files changed, 5 insertions, 43 deletions

diff --git a/src/login/src/Struct/Flags.elm b/src/login/src/Struct/Flags.elm
deleted file mode 100644
index 228d258..0000000
--- a/src/login/src/Struct/Flags.elm
+++ /dev/null
@@ -1,42 +0,0 @@
-module Struct.Flags exposing
-   (
-      Type,
-      maybe_get_param
-   )
-
--- Elm -------------------------------------------------------------------------
-import List
-
--- Map -------------------------------------------------------------------
-import Util.List
-
---------------------------------------------------------------------------------
--- TYPES -----------------------------------------------------------------------
---------------------------------------------------------------------------------
-type alias Type =
-   {
-      user_id : String,
-      token : String,
-      url_params : (List (List String))
-   }
-
---------------------------------------------------------------------------------
--- LOCAL -----------------------------------------------------------------------
---------------------------------------------------------------------------------
-
---------------------------------------------------------------------------------
--- EXPORTED --------------------------------------------------------------------
---------------------------------------------------------------------------------
-maybe_get_param : String -> Type -> (Maybe String)
-maybe_get_param param flags =
-   case
-      (Util.List.get_first
-         (\e -> ((List.head e) == (Just param)))
-         flags.url_params
-      )
-   of
-      Nothing -> Nothing
-      (Just a) ->
-         case (List.tail a) of
-            Nothing -> Nothing
-            (Just b) -> (List.head b)
diff --git a/src/login/src/Struct/Model.elm b/src/login/src/Struct/Model.elm
index 859c054..7d14239 100644
--- a/src/login/src/Struct/Model.elm
+++ b/src/login/src/Struct/Model.elm
@@ -9,9 +9,11 @@ module Struct.Model exposing
 
 -- Elm -------------------------------------------------------------------------
 
+-- Shared ----------------------------------------------------------------------
+import Struct.Flags
+
 -- Login -----------------------------------------------------------------------
 import Struct.Error
-import Struct.Flags
 import Struct.HelpRequest
 import Struct.UI
 
@@ -22,6 +24,7 @@ type alias Type =
    {
       help_request: Struct.HelpRequest.Type,
       error: (Maybe Struct.Error.Type),
+      flags: Struct.Flags.Type,
       username: String,
       password1: String,
       password2: String,
@@ -46,6 +49,7 @@ new flags =
       model =
          {
             help_request = Struct.HelpRequest.None,
+            flags = flags,
             error = Nothing,
             username = "",
             password1 = "",