summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNathanael Sensfelder <SpamShield0@MultiAgentSystems.org>2018-08-10 10:19:28 +0200
committerNathanael Sensfelder <SpamShield0@MultiAgentSystems.org>2018-08-10 10:19:28 +0200
commitc095185daf5dc5f909c2785c2453d431199f85bf (patch)
treef696655b3a97df6bbdd7b33d0371e658d554bc89 /src/login/src/Struct
parent9daca5362a985adb1c3c708195bffe18def7b1ca (diff)
Got login to work.
Diffstat (limited to 'src/login/src/Struct')
-rw-r--r--src/login/src/Struct/Event.elm10
-rw-r--r--src/login/src/Struct/Model.elm12
2 files changed, 16 insertions, 6 deletions
diff --git a/src/login/src/Struct/Event.elm b/src/login/src/Struct/Event.elm
index b473475..662b768 100644
--- a/src/login/src/Struct/Event.elm
+++ b/src/login/src/Struct/Event.elm
@@ -16,8 +16,14 @@ type Type =
None
| Failed Struct.Error.Type
| RequestedHelp Struct.HelpRequest.Type
- | SendSignInRequested
- | SendSignUpRequested
+ | SignInRequested
+ | SignUpRequested
+ | RecoveryRequested
+ | SetUsername String
+ | SetPassword1 String
+ | SetPassword2 String
+ | SetEmail1 String
+ | SetEmail2 String
| ServerReplied (Result Http.Error (List Struct.ServerReply.Type))
| TabSelected Struct.UI.Tab
diff --git a/src/login/src/Struct/Model.elm b/src/login/src/Struct/Model.elm
index 787d6ba..cb7bf35 100644
--- a/src/login/src/Struct/Model.elm
+++ b/src/login/src/Struct/Model.elm
@@ -25,8 +25,10 @@ type alias Type =
help_request: Struct.HelpRequest.Type,
error: (Maybe Struct.Error.Type),
username: String,
- password: String,
- email: String,
+ password1: String,
+ password2: String,
+ email1: String,
+ email2: String,
player_id: String,
session_token: String,
ui: Struct.UI.Type
@@ -48,8 +50,10 @@ new flags =
help_request = Struct.HelpRequest.None,
error = Nothing,
username = "",
- password = "",
- email = "",
+ password1 = "",
+ password2 = "",
+ email1 = "",
+ email2 = "",
player_id = flags.user_id,
session_token = flags.token,
ui = (Struct.UI.default)