From d2c778b79f0453bd73d7caf4d337f24116d7fe6d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Adri=C3=A1n=20Enr=C3=ADquez?= Date: Thu, 26 Jan 2023 11:49:03 +0100 Subject: [PATCH] fixup! [#270] Handle relative redirects --- src/Xrefcheck/Data/URI.hs | 2 +- src/Xrefcheck/Verify.hs | 2 +- tests/Test/Xrefcheck/URIParsingSpec.hs | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Xrefcheck/Data/URI.hs b/src/Xrefcheck/Data/URI.hs index bdda770f..af6d3dd0 100644 --- a/src/Xrefcheck/Data/URI.hs +++ b/src/Xrefcheck/Data/URI.hs @@ -5,7 +5,7 @@ {-# LANGUAGE ExistentialQuantification #-} -module Xrefcheck.Data.Uri +module Xrefcheck.Data.URI ( UriParseError (..) , parseUri ) where diff --git a/src/Xrefcheck/Verify.hs b/src/Xrefcheck/Verify.hs index f73705e7..d2405162 100644 --- a/src/Xrefcheck/Verify.hs +++ b/src/Xrefcheck/Verify.hs @@ -69,7 +69,7 @@ import Time (RatioNat, Second, Time (..), ms, sec, threadDelay, timeout, (+:+), import Control.Monad.Trans.Except (withExceptT) import Xrefcheck.Config import Xrefcheck.Core -import Xrefcheck.Data.Uri +import Xrefcheck.Data.URI import Xrefcheck.Orphans () import Xrefcheck.Progress import Xrefcheck.Scan diff --git a/tests/Test/Xrefcheck/URIParsingSpec.hs b/tests/Test/Xrefcheck/URIParsingSpec.hs index bc2c7fd1..e1ee23f7 100644 --- a/tests/Test/Xrefcheck/URIParsingSpec.hs +++ b/tests/Test/Xrefcheck/URIParsingSpec.hs @@ -13,7 +13,7 @@ import Text.URI (URI) import Text.URI.QQ (uri) import URI.ByteString qualified as URIBS -import Xrefcheck.Data.Uri (UriParseError (..), parseUri) +import Xrefcheck.Data.URI (UriParseError (..), parseUri) test_uri :: [TestTree] test_uri =