Fix/extend path extraction

`extractPath` has an edge case it does not correctly handle:

```hs
-- >>> extractPath "https://some.example.com?path=/some/path"
"/some/path"
```

It would also be nice to have an `extractPath`-type/family of function(s) that will parse most of the URI for any `http/https` URIs.