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