diff --git a/Test/Control.hs b/Test/Control.hs
--- a/Test/Control.hs
+++ b/Test/Control.hs
@@ -57,8 +57,8 @@
                             (replaceStrings "[0-9]+" "?" $ show (either Left (debianRelations "Foo") vc)))
     , TestCase (parseDebianControlFromFile "nonexistant" >>= \ vc ->
                 assertEqual "policy5"
-                            "Left \"src/Debian/Control/Policy.hs\"(line ?, column ?): IOError nonexistant: openBinaryFile: does not exist (No such file or directory)"
-                            (replaceStrings "[0-9]+" "?" . replaceStrings "openFile" "openBinaryFile" $ show (either Left (debianRelations "Foo") vc)))
+                            "Left \"src/Debian/Control/Policy.hs\"(line ?, column ?): IOError nonexistant: withBinaryFile: does not exist (No such file or directory)"
+                            (replaceStrings "[0-9]+" "?" . replaceStrings "openBinaryFile" "withBinaryFile" . replaceStrings "openFile" "withBinaryFile" $ show (either Left (debianRelations "Foo") vc)))
 
     -- Test whether embedded newlines in field values can be mistaken
     -- for field or paragraph divisions.  In cases pretty7 and pretty9
diff --git a/debian.cabal b/debian.cabal
--- a/debian.cabal
+++ b/debian.cabal
@@ -1,6 +1,6 @@
 cabal-version:  3.0
 Name:           debian
-Version:        4.0.3
+Version:        4.0.4
 License:        BSD-3-Clause
 License-File:   debian/copyright
 Author:         David Fox <dsf@seereason.com>, Jeremy Shaw <jeremy@seereason.com>, Clifford Beshers <beshers@seereason.com>
@@ -9,6 +9,7 @@
 Homepage:       https://github.com/clinty/debian-haskell
 Build-Type:     Simple
 Synopsis:       Modules for working with the Debian package system
+Tested-With:    GHC ==9.2.3 || ==9.0.2 || ==8.10.7 || ==8.8.4 || ==8.6.5 || ==8.4.4
 Description:
   This library includes modules covering some basic data types defined by
   the Debian policy manual - version numbers, control file syntax, etc.
diff --git a/src/Debian/URI.hs b/src/Debian/URI.hs
--- a/src/Debian/URI.hs
+++ b/src/Debian/URI.hs
@@ -56,7 +56,6 @@
 #endif
 import Network.URI (nullURI, parseURIReference, parseURI, parseAbsoluteURI, parseRelativeReference, URI(..), URIAuth(..), uriToString)
 import System.FilePath ((</>), dropTrailingPathSeparator, takeDirectory)
-import Test.QuickCheck (Arbitrary)
 import Text.Parsec (ParseError)
 
 $(makeLensesFor [("uriScheme", "uriSchemeLens"),
@@ -141,9 +140,6 @@
 
 uriToString' :: URI -> String
 uriToString' uri = uriToString id uri ""
-
-instance Arbitrary URI where
-    -- Replace with import from network-arbitrary package
 
 class HasParseError e where fromParseError :: ParseError -> e
 instance HasParseError ParseError where fromParseError = id