diff --git a/Utility/URI.hs b/Utility/URI.hs
index 1e2129a479..e68fda58da 100644
--- a/Utility/URI.hs
+++ b/Utility/URI.hs
@@ -8,3 +8,11 @@
 {-# LANGUAGE CPP #-}
 
 module Utility.URI where
+
+-- Old versions of network lacked an Ord for URI
+#if ! MIN_VERSION_network(2,4,0)
+import Network.URI
+
+instance Ord URI where
+	a `compare` b = show a `compare` show b
+#endif