uriRegName does not strip brackets around ipv6 address

[joey]

Prelude Network.URI> let (Just u) = parseURI http://foo@[2001:0:53aa:64c:24ef:5ce4:2ef9:cdda]/bar"
Prelude Network.URI> let (Just a) = uriAuthority u
Prelude Network.URI> uriRegName a
"[2001:0:53aa:64c:24ef:5ce4:2ef9:cdda]"
Prelude Network.URI> isIPv6address $ uriRegName a
False

I would expect uriRegName to return a regular hostname or IP address. The brackets seem to be honored by the parser to resolve the ipv6 address/port ambiguity, but seems there was an oversight in stripping them.