diff --git a/distribution-opensuse.cabal b/distribution-opensuse.cabal
--- a/distribution-opensuse.cabal
+++ b/distribution-opensuse.cabal
@@ -1,5 +1,5 @@
 name:               distribution-opensuse
-version:            1.1.3
+version:            1.1.4
 synopsis:           Types, functions, and tools to manipulate the openSUSE distribution
 description:        This library is a loose collection of types, functions, and tools that
                     users and developers of the
@@ -9,7 +9,7 @@
 author:             Peter Simons
 maintainer:         simons@cryp.to
 tested-with:        GHC == 8.0.2, GHC == 8.2.2, GHC == 8.4.4, GHC == 8.6.5, GHC == 8.8.4, GHC == 8.10.7
-                  , GHC == 9.0.2, GHC == 9.2.1
+                  , GHC == 9.0.2, GHC == 9.2.7, GHC == 9.4.4, GHC == 9.6.1
 category:           Distribution
 homepage:           https://github.com/peti/distribution-opensuse/
 bug-reports:        https://github.com/peti/distribution-opensuse/issues
@@ -21,7 +21,7 @@
 
 source-repository head
   type:     git
-  location: git://github.com/peti/distribution-opensuse.git
+  location: https://github.com/peti/distribution-opensuse.git
 
 library
   exposed-modules:    OpenSuse.GuessChangeLog
diff --git a/src/OpenSuse/GuessChangeLog.hs b/src/OpenSuse/GuessChangeLog.hs
--- a/src/OpenSuse/GuessChangeLog.hs
+++ b/src/OpenSuse/GuessChangeLog.hs
@@ -10,6 +10,7 @@
 import Data.Set ( Set )
 import qualified Data.Set as Set
 import qualified Data.Text as Text
+import qualified Data.Text.IO as Text
 import Prelude hiding ( FilePath )
 import Turtle hiding ( l, x, stderr, stdout )
 
@@ -45,8 +46,8 @@
            []    -> throwError (NoCommonChangeLogFiles oldCLF newCLF)
            [clf] -> return clf
            _     -> throwError (MoreThanOneChangeLogFile clf')
-  old <- stripSpace <$> liftIO (readTextFile (oldDir </> clf))
-  new <- stripSpace <$> liftIO (readTextFile (newDir </> clf))
+  old <- stripSpace <$> liftIO (Text.readFile (oldDir </> clf))
+  new <- stripSpace <$> liftIO (Text.readFile (newDir </> clf))
   let changes    = cleanupEmptyLines (getDiff (Text.lines old) (Text.lines new))
       (top,diff) = span inBoth changes
       (add,foot) = span inSecond diff