anchor.diff:          Navigation.newUrl (toHash Page.Home)
   
       | Logout(), _ ->
  -        model, Cmd.ofFunc Utils.delete "user" (fun _ -> LoggedOut) StorageFailure
  +        model, deleteUserCmd
   
   // VIEW
   
  
positive.code:     | Some Page.Home ->
          { model with PageModel = HomePageModel }, Cmd.none
  
  let init result =
      let user = Utils.load "user"
      let model =
          { User = user
            PageModel = HomePageModel }
  
negative.code:             if model.User = Some newUser then
                  Cmd.ofMsg (LoggedIn newUser)
              else
                  saveUserCmd newUser
  
          let m,cmd = Login.update LoginMsg onSuccess msg m
          { model with
  