From 7ba10f8da435e8ec7943886a75c22e6c7b0a2324 Mon Sep 17 00:00:00 2001 From: Sean Hess Date: Mon, 4 Aug 2025 09:43:21 -0700 Subject: [PATCH] FromJSON URI use parseURIReference Support round-trip reference (local) uris --- src/Data/Aeson/Types/FromJSON.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Data/Aeson/Types/FromJSON.hs b/src/Data/Aeson/Types/FromJSON.hs index 7fbacaea..88d87afe 100644 --- a/src/Data/Aeson/Types/FromJSON.hs +++ b/src/Data/Aeson/Types/FromJSON.hs @@ -2392,7 +2392,7 @@ instance FromJSONKey URI.URI where fromJSONKey = FromJSONKeyTextParser parseURI parseURI :: Text -> Parser URI.URI -parseURI t = case URI.parseURI (T.unpack t) of +parseURI t = case URI.parseURIReference (T.unpack t) of Nothing -> fail "Invalid URI" Just x -> return x