findSvg : Chess.Data.Player.Player -> Chess.Data.Piece.Piece -> List (Html.Attribute msg) -> Html msg