anchor.diff:      | AddBook ->
           if Validation.verifyBook model.NewBook then
               match Validation.verifyBookisNotADuplicate model.WishList model.NewBook with
  -            | Some err -> 
  +            | Some err ->
                   { model with ErrorMsg = Some err }, Cmd.none
  -            | None ->        
  +            | None ->
                   let wishList = { model.WishList with Books = (model.NewBook :: model.WishList.Books) |> List.sortBy (fun b -> b.Title) }
                   { model with WishList = wishList; NewBook = Book.empty; NewBookId = Guid.NewGuid(); ErrorMsg = None }, postWishListCmd(model.Token,wishList) |> Cmd.map f
           else
  -            { model with 
  +            { model with
                   TitleErrorText = Validation.verifyBookTitle model.NewBook.Title
                   AuthorsErrorText = Validation.verifyBookAuthors model.NewBook.Authors
                   LinkErrorText = Validation.verifyBookLink model.NewBook.Link
  
positive.code:     }
  
  let getResetTime token =
      promise {        
          let url = ServerUrls.ResetTime
          let props = 
              [ Fetch.requestHeaders [
                  HttpRequestHeaders.Authorization ("Bearer " + token) ]]
  
  
negative.code: 
      | AuthorsChanged authors ->
          let newBook = { model.NewBook with Authors = authors }
          { model with
              NewBook = newBook
              AuthorsErrorText = Validation.verifyBookAuthors authors
              ErrorMsg = Validation.verifyBookisNotADuplicate model.WishList newBook }, Cmd.none
  
      | LinkChanged link ->
          let newBook = { model.NewBook with Link = link }
          { model with
              NewBook = newBook
              LinkErrorText = Validation.verifyBookLink link
              ErrorMsg = Validation.verifyBookisNotADuplicate model.WishList newBook }, Cmd.none
  
      | RemoveBook book ->
          let wishList = { model.WishList with Books = model.WishList.Books |> List.filter ((<>) book) }
          { model with
              WishList = wishList
  