diff --git a/Build/DistributionUpdate.hs b/Build/DistributionUpdate.hs
index a681ec2edd..a02ff990f0 100644
--- a/Build/DistributionUpdate.hs
+++ b/Build/DistributionUpdate.hs
@@ -36,7 +36,7 @@ makeinfos = do
 		v <- lookupFile f
 		case v of
 			Nothing -> noop
-			Just (k, _b) -> whenM (inAnnex k) $ do
+			Just k -> whenM (inAnnex k) $ do
 				liftIO $ putStrLn f
 				let infofile = f ++ ".info"
 				liftIO $ writeFile infofile $ show $ GitAnnexDistribution
diff --git a/Utility/URI.hs b/Utility/URI.hs
index 39c2f2289e..2401596093 100644
--- a/Utility/URI.hs
+++ b/Utility/URI.hs
@@ -10,9 +10,11 @@
 module Utility.URI where
 
 -- Old versions of network lacked an Ord for URI
+#ifdef VERSION_network
 #if ! MIN_VERSION_network(2,4,0)
 import Network.URI
 
 instance Ord URI where
 	a `compare` b = show a `compare` show b
 #endif
+#endif