summaryrefslogtreecommitdiff
path: root/elm3/User/Settings.elm
diff options
context:
space:
mode:
Diffstat (limited to 'elm3/User/Settings.elm')
-rw-r--r--elm3/User/Settings.elm20
1 files changed, 10 insertions, 10 deletions
diff --git a/elm3/User/Settings.elm b/elm3/User/Settings.elm
index 538225ca..2e43e8ed 100644
--- a/elm3/User/Settings.elm
+++ b/elm3/User/Settings.elm
@@ -7,11 +7,11 @@ import Html.Events exposing (..)
import Browser
import Browser.Navigation exposing (reload)
import Lib.Html exposing (..)
-import Lib.Gen exposing (..)
+import Lib.Gen as Gen
import Lib.Api as Api
-main : Program UserEdit Model Msg
+main : Program Gen.UserEdit Model Msg
main = Browser.element
{ init = init
, view = view
@@ -23,7 +23,7 @@ main = Browser.element
type alias Model =
{ state : Api.State
, saved : Bool
- , data : UserEdit
+ , data : Gen.UserEdit
, cpass : Bool
, pass1 : String
, pass2 : String
@@ -32,7 +32,7 @@ type alias Model =
}
-init : UserEdit -> (Model, Cmd Msg)
+init : Gen.UserEdit -> (Model, Cmd Msg)
init d =
({state = Api.Normal
, saved = False
@@ -45,7 +45,7 @@ init d =
}, Cmd.none)
-encode : Model -> UserEditSend
+encode : Model -> Gen.UserEditSend
encode model =
{ hide_list = model.data.hide_list
, ign_votes = model.data.ign_votes
@@ -87,7 +87,7 @@ type Msg
| Pass2 String
-updateField : UpdateMsg -> UserEdit -> UserEdit
+updateField : UpdateMsg -> Gen.UserEdit -> Gen.UserEdit
updateField msg model =
case msg of
Username s -> { model | username = s }
@@ -116,10 +116,10 @@ update msg model =
Submit ->
let
path = "/u" ++ String.fromInt model.data.id ++ "/edit"
- body = usereditSendEncode (encode model)
+ body = Gen.usereditSendEncode (encode model)
in ({ model | state = Api.Loading }, Api.post path body Submitted)
- Submitted (Api.Success) ->
+ Submitted (Gen.Success) ->
( { model | state = Api.Normal, saved = True, cpass = False, opass = "", pass1 = "", pass2 = "" }
, if model.cpass then reload else Cmd.none
)
@@ -136,7 +136,7 @@ view model =
, inputText "username" model.data.username (Set << Username) [required True, maxlength 200, pattern "[a-z0-9-]{2,15}", disabled (not model.data.authmod)]
]
, [ label [ for "email" ] [ text "Email address" ]
- , inputText "email" model.data.mail (Set << Email) [type_ "email", required True, pattern emailPattern]
+ , inputText "email" model.data.mail (Set << Email) [type_ "email", required True, pattern Gen.emailPattern]
]
]
@@ -166,7 +166,7 @@ view model =
[ [ label [] [ text "Permissions" ]
] ++ List.map (\(n,s) ->
label [ class "checkbox" ] [ inputCheck "" (and model.data.perm n > 0) (Set << Perm n), text (" " ++ s) ]
- ) userPerms
+ ) Gen.userPerms
, [ label [] [ text "Other" ]
, label [ class "checkbox" ] [ inputCheck "" model.data.ign_votes (Set << IgnVotes), text "Ignore votes in VN statistics" ]
]