git.iko.soy/skrepka
on master help sign in
Don't update profile photo when picker is cancelled
54111f6iko
client/App.fs+2−1
compare with master
unifiedsplit
@@ -358,13 +358,14 @@ module App =
358
358
359 | DoPickPhoto -> model, [ CmdPickPhoto ]
359 | DoPickPhoto -> model, [ CmdPickPhoto ]
360
360
361− | PhotoPicked photo ->
361+ | PhotoPicked(Some _ as photo) ->
362 match model.Page with
362 match model.Page with
363 | EditProfile(name, bio, _) ->
363 | EditProfile(name, bio, _) ->
364 { model with
364 { model with
365 Page = EditProfile(name, bio, photo) },
365 Page = EditProfile(name, bio, photo) },
366 []
366 []
367 | _ -> model, []
367 | _ -> model, []
368+ | PhotoPicked None -> model, []
368
369
369 | DoSaveProfile ->
370 | DoSaveProfile ->
370 match model.Page with
371 match model.Page with