From 41ee21d24c687c6d357025162d4da6f159e12157 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Thu, 20 Jul 2023 12:59:49 +1200
Subject: [PATCH] Broaden base dependency bounds, fix readStrict regression.

---
 hurl-xml/CHANGELOG.md                 | 3 +++
 hurl-xml/hurl-xml.cabal               | 4 ++--
 hurl-xml/src/Network/URI/Fetch/XML.hs | 2 +-
 3 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/hurl-xml/CHANGELOG.md b/hurl-xml/CHANGELOG.md
index 11af1d5..12146a0 100644
--- a/hurl-xml/CHANGELOG.md
+++ b/hurl-xml/CHANGELOG.md
@@ -1,5 +1,8 @@
 # Revision history for hurl-xml
 
+## 0.21.0.2 -- 2023-06-23
+* Attempted fix to managing the history log.
+
 ## 0.1.0.0 -- YYYY-mm-dd
 
 * First version. Released on an unsuspecting world.
diff --git a/hurl-xml/hurl-xml.cabal b/hurl-xml/hurl-xml.cabal
index f085407..ba48a1d 100644
--- a/hurl-xml/hurl-xml.cabal
+++ b/hurl-xml/hurl-xml.cabal
@@ -10,7 +10,7 @@ name:                hurl-xml
 -- PVP summary:      +-+------- breaking API changes
 --                   | | +----- non-breaking API additions
 --                   | | | +--- code changes with no API change
-version:             0.2.0.1
+version:             0.2.0.2
 
 -- A short (one-line) description of the package.
 synopsis:            Fetch parsed XML & possibly CSS for a URL based on MIMEtype.
@@ -60,7 +60,7 @@ library
   -- other-extensions:
 
   -- Other library packages from which modules are imported.
-  build-depends:       base >=4.12 && <4.16, text, bytestring, containers,
+  build-depends:       base >=4.12 && <5, text, bytestring, containers,
                        data-default-class,
                        time, directory, filepath, temporary,
                        xml-conduit >= 1.8 && <2, html-conduit >= 1.3 && <2,
diff --git a/hurl-xml/src/Network/URI/Fetch/XML.hs b/hurl-xml/src/Network/URI/Fetch/XML.hs
index 9944d70..ff9fdd3 100644
--- a/hurl-xml/src/Network/URI/Fetch/XML.hs
+++ b/hurl-xml/src/Network/URI/Fetch/XML.hs
@@ -67,7 +67,7 @@ loadVisited appname = do
         return hist
     else return Set.empty
 
-readStrict path = do s <- Prelude.readFile path; length s `seq` return s
+readStrict path = Txt.unpack <$> Txt.readFile path
 
 utf8' bytes = convertCharset "utf-8" $ B.toStrict bytes
 aCCEPT = ["text/xml", "application/xml", "text/html", "text/gemini",
-- 
2.30.2