Update user

.gitignore

@@ -412,3 +412,4 @@ ASALocalRun/
 
 packages/
 .ionide/
+localAccount.txt

src/App/Pages/Settings/Settings.fs

@@ -34,6 +34,8 @@ let SettingsPage (model: State) dispatch =
     //let updateProfile
     let view =
         let user = model.User.Value
+        let token =  user.Token
+
         //let state, dispatch = Store.makeElmish (init model) update ignore ()
         let url = Store.make user.Image
         let username = Store.make user.Username
@@ -187,6 +189,7 @@ let SettingsPage (model: State) dispatch =
                                     UpdateUser { UpsertUser.Username = username.Value
                                                  Image = url.Value
                                                  Bio = bio.Value
+                                                 Token = Some token
                                                  Email = email.Value
                                                  Password = password.Value }))
                             []

src/App/Pages/SignUp/SignUp.fs

@@ -125,6 +125,7 @@ let SignUpPage dispatch =
                                     SignUp { UpsertUser.Username = username.Value
                                              Image = String.Empty
                                              Bio = String.Empty
+                                             Token = None
                                              Email = email.Value
                                              Password = password.Value }))
                             []

src/App/Services/Api/ArticleApi.fs

@@ -10,7 +10,7 @@ type ArticleFilter =
 
 let getTags () =
     let url =
-        "https://cirosantilli-realworld-next.herokuapp.com/api/tags"
+        "https://conduit.productionready.io/api/tags"
 
     promise {
         let! response = Fetch.fetch url []
@@ -22,7 +22,7 @@ let getTags () =
 
 let getArticles limit offset (filter: ArticleFilter option) =
     let url =
-        "https://cirosantilli-realworld-next.herokuapp.com/api/articles"
+        "https://conduit.productionready.io/api/articles"
 
     let url =
         $"{url}?limit={limit}&offset={offset}"
@@ -41,7 +41,7 @@ let getArticles limit offset (filter: ArticleFilter option) =
 
 let getArticle slug =
     let url =
-        $"https://cirosantilli-realworld-next.herokuapp.com/api/articles/{slug}"
+        $"https://conduit.productionready.io/api/articles/{slug}"
 
     promise {
         let! response = Fetch.fetch url []

src/App/Services/Api/ProfileApi.fs

@@ -6,7 +6,7 @@ open Fable.Core.JsInterop
 
 let signUp (upsertUser: UpsertUser) =
     let url =
-        "https://cirosantilli-realworld-next.herokuapp.com/api/users"
+        "https://conduit.productionready.io/api/users"
 
     promise {
         let json = upsertUser.toJson ()
@@ -24,10 +24,32 @@ let signUp (upsertUser: UpsertUser) =
         return User.fromJson response
     }
 
+let updateUser (upsertUser: UpsertUser) =
+    let url =
+        "https://conduit.productionready.io/api/user"
+
+    promise {
+        let json = upsertUser.toJson ()
+
+        let! response =
+            Fetch.fetch
+                url
+                [ Method HttpMethod.PUT
+                  Fetch.requestHeaders [
+                      Accept "application/json"
+                      Authorization $"Token {upsertUser.Token.Value}"
+                      ContentType "application/json"
+                  ]
+                  Body !^json ]
+
+        let! response = response.text ()
+        return User.fromJson response
+    }
+
 let getProfile username =
 
     let url =
-        $"https://cirosantilli-realworld-next.herokuapp.com/api/profiles/{username}"
+        $"https://conduit.productionready.io/api/profiles/{username}"
 
     promise {
         let! response = Fetch.fetch url []

src/App/Services/Elmish.fs

@@ -53,7 +53,7 @@ let private update (msg: Message) (state: State) =
 
         let errorFn error = UnsuccessfulLogin error
 
-        state, Cmd.OfPromise.either ProfileApi.signUp upsertUser successFn (fun e -> UnsuccessfulLogin e)
+        state, Cmd.OfPromise.either ProfileApi.updateUser upsertUser successFn (fun e -> UnsuccessfulLogin e)
     | Logout ->
         LocalStorage.removeItem LocalStorageKeys.User
 

src/App/Types.fs

@@ -116,6 +116,7 @@ type UpsertUser =
     { Username: string
       Image: string
       Bio: string
+      Token: string option
       Email: string
       Password: string }
 
@@ -126,7 +127,10 @@ type UpsertUser =
                 "image", Encode.option Encode.string (Option.ofString user.Image)
                 "bio", Encode.option Encode.string (Option.ofString user.Bio)
                 "email", Encode.string user.Email
-                "password", Encode.option Encode.string (Option.ofString user.Password)
+                if not (String.IsNullOrWhiteSpace user.Password)
+                then "password", Encode.string user.Password
+                if user.Token.IsSome
+                then "token", Encode.option Encode.string user.Token
             ]
         Encode.object [ "user", userEncoder ]
     static member Decoder = decoder<UpsertUser> Extra.empty