@@ -358,13 +358,14 @@ module App =
358358
359359 | DoPickPhoto -> model, [ CmdPickPhoto ]
360360
361− | PhotoPicked photo ->
361+ | PhotoPicked(Some _ as photo) ->
362362 match model.Page with
363363 | EditProfile(name, bio, _) ->
364364 { model with
365365 Page = EditProfile(name, bio, photo) },
366366 []
367367 | _ -> model, []
368+ | PhotoPicked None -> model, []
368369
369370 | DoSaveProfile ->
370371 match model.Page with