anchor.diff:              tbody [] [
                   wishList.Books
                       |> List.map (fun book ->
  -                       BookComponent {
  -                            key = book.Title + book.Authors
  -                            book = book
  -                       })
  +                        elmishView "Book" bookComponent {
  +                            Key = book.Title + book.Authors
  +                            Book = book
  +                        })
                       |> ofList
               ]
           ]
  
positive.code:         td [] [ str book.Authors ]
          td [] [ img [ Src book.ImageLink; Title book.Title ]]
      ]
  
  let BookComponent = elmishView "Book" bookComponent
  
  let view = elmishView "Home" (fun (model:Model) ->
      match model.WishList with
  
negative.code:         printfn "Error: %s" e.Message
          model, Cmd.none
  
  type BookProps = { Key: string; Book: Book }
  
  let bookComponent = elmishView "Book" (fun (props: BookProps) ->
      let book = props.Book
      tr [ Key props.Key ] [
          td [] [
              if String.IsNullOrWhiteSpace book.Link then
                  yield str book.Title
  