When parsing ID URIs in AP JSON, make sure their authority part is non-empty

src/Data/Aeson/Local.hs

@@ -29,6 +29,7 @@ import Prelude
 import Control.Applicative ((<|>))
 import Data.Aeson
 import Data.Aeson.Types (Parser)
+import Data.Maybe (isJust)
 import Data.Text (Text)
 import Network.URI
 
@@ -61,7 +62,9 @@ parseHttpsURI t =
         Nothing -> fail "Invalid absolute URI"
         Just u ->
             if uriScheme u == "https:"
+                then if isJust $ uriAuthority u
                         then return u
+                        else fail "URI has empty authority"
                 else fail "URI scheme isn't https"
 
 renderURI :: URI -> String