| summaryrefslogtreecommitdiff |
diff options
| author | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2018-09-04 21:47:28 +0200 |
|---|---|---|
| committer | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2018-09-04 21:47:28 +0200 |
| commit | 39c267a7a2f0c66c951b6ef24fbc3738f8cfa7e1 (patch) | |
| tree | 2f6a2eb6e09c29cef495c401c2cd9347e056e98e /src/login/src/Struct | |
| parent | e22e904a181a3158787d5e5e7552a0405f20d210 (diff) | |
Redirects to main-menu upon login in.
Diffstat (limited to 'src/login/src/Struct')
| -rw-r--r-- | src/login/src/Struct/Event.elm | 1 | ||||
| -rw-r--r-- | src/login/src/Struct/Model.elm | 3 |
2 files changed, 3 insertions, 1 deletions
diff --git a/src/login/src/Struct/Event.elm b/src/login/src/Struct/Event.elm index 662b768..39af983 100644 --- a/src/login/src/Struct/Event.elm +++ b/src/login/src/Struct/Event.elm @@ -26,6 +26,7 @@ type Type = | SetEmail2 String | ServerReplied (Result Http.Error (List Struct.ServerReply.Type)) | TabSelected Struct.UI.Tab + | Connected attempted : (Result.Result err val) -> Type attempted act = diff --git a/src/login/src/Struct/Model.elm b/src/login/src/Struct/Model.elm index cb7bf35..88a509e 100644 --- a/src/login/src/Struct/Model.elm +++ b/src/login/src/Struct/Model.elm @@ -9,8 +9,9 @@ module Struct.Model exposing -- Elm ------------------------------------------------------------------------- --- Map ------------------------------------------------------------------- +-- Login ----------------------------------------------------------------------- import Struct.Error +import Struct.Event import Struct.Flags import Struct.HelpRequest import Struct.UI |