| summaryrefslogtreecommitdiff |
diff options
| author | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2018-08-09 17:23:04 +0200 |
|---|---|---|
| committer | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2018-08-09 17:23:04 +0200 |
| commit | 9daca5362a985adb1c3c708195bffe18def7b1ca (patch) | |
| tree | 756af74b1bb2069debd6f61f384128daa5e93488 /src/login/src/Struct | |
| parent | 3fd7c9d99825544e983ba7390b61968d20ff3a9f (diff) | |
Still working on it...
Diffstat (limited to 'src/login/src/Struct')
| -rw-r--r-- | src/login/src/Struct/UI.elm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/login/src/Struct/UI.elm b/src/login/src/Struct/UI.elm index 53528f7..be7eab3 100644 --- a/src/login/src/Struct/UI.elm +++ b/src/login/src/Struct/UI.elm @@ -21,6 +21,8 @@ type Tab = SignInTab | SignUpTab | SignedInTab + | SignedOutTab + | RecoveryTab type alias Type = { @@ -54,16 +56,19 @@ to_string : Tab -> String to_string tab = case tab of SignInTab -> "Sign In" - SignUpTab -> "Sign Up" + SignUpTab -> "Create Account" SignedInTab -> "Signed In" + SignedOutTab -> "Signed Out" + RecoveryTab -> "Account Recovery" tab_from_string : String -> Tab tab_from_string str = case str of "signin" -> SignInTab "signup" -> SignUpTab + "recover" -> RecoveryTab _ -> SignInTab get_all_tabs : (List Tab) get_all_tabs = - [SignInTab, SignUpTab] + [SignInTab, SignUpTab, RecoveryTab] |