forge/Vervis
1
0
Fork 0
Code Pull requests Activity

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

Browse source
This commit is contained in:
fr33domlover 2019-02-05 12:54:55 +00:00
parent c2c4e24497
commit d4c7fa5809
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Data/Aeson/Local.hs
View file

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