anchor.diff:  type Model = 
     { WishList : WishList
       Token : string
  -    NewBook: Book
  +    NewBook : Book
  +    NewBookId : Guid // unique key to reset the vdom-elements, see https://github.com/fable-compiler/fable-suave-scaffold/issues/107#issuecomment-301312224
       TitleErrorText : string option
       AuthorsErrorText : string option
       LinkErrorText : string option
  
positive.code:                          yield div [ClassName "input-group"] [
                               yield span [ClassName "input-group-addon"] [span [ClassName "glyphicon glyphicon glyphicon-pencil"] [] ]
                               yield input [ 
                                      HTMLAttr.Type "text"
                                      Name "Link"
                                      DefaultValue (U2.Case1 model.NewBook.Link)
  
negative.code:     | AddBook ->
          if Validation.verifyBook model.NewBook then
              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() }, postWishListCmd(model.Token,wishList)
          else
              { model with 
                  TitleErrorText = Validation.verifyBookTitle model.NewBook.Title
  