Query.find matches the same element twice

Hi,

I have a test that fails complaining about `Query.find always expects to find 1 element, but it found 2 instead.`. The HTML in question is actually generated from a utility function, and the very same test(copy/paste) passes in another component that utilized the same function.

The query bit of my test is (where actual is `Html Msg`):
```
actual
|> Query.fromHtml
|> Query.find
[ Selector.tag "div"
, Selector.classes [ "loading", "loading-flash" ]
, Selector.id ("loading")
, Selector.style "display" ""
]
|> Query.has []
```
Below is the output.
```
â–¼ Query.fromHtml

You've selected

Send anonymously


(optional)

Send

â–¼ Query.find [ tag "div", classes "loading loading-flash", attribute "id" "loading", styles display: ]

1)

2)

✗ Query.find always expects to find 1 element, but it found 2 instead.

HINT: If you actually expected 2 elements, use Query.findAll instead of Query.find.

```

Kind regards,
Charl Marais