anchor.diff:          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
  
positive.code:             tbody [] [
                  wishList.Books
                      |> List.map (fun book ->
                         BookComponent {
                              key = book.Title + book.Authors
                              book = book
                         })
                      |> ofList
              ]
          ]
  
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
  