M-q doesn't recognize lists

```
-- | This is a list:
--
-- * A long line of text which is the first element of a list in a Haddock comment (the point is here: [ ])
```

When I press M-q, it is refilled like this:

```

-- | This is a list:
--
-- * A long line of text which is the first element of a list in a Haddock
-- * comment (the point is here: [ ])
```

but should be refilled like this:

```

-- | This is a list:
--
-- * A long line of text which is the first element of a list in a Haddock
-- comment (the point is here: [ ])
```

---

Here's another common example. Before refill:

```
-- | This is a list:
--
-- * Foo
-- * Bar (the point is here [ ])
```

After refill:

```
-- | This is a list:
--
-- * Foo Bar (the point is here [ ])
```