diff --git a/cabal-install/src/Distribution/Client/VCS.hs b/cabal-install/src/Distribution/Client/VCS.hs
index 0d09c026695..c410969e88c 100644
--- a/cabal-install/src/Distribution/Client/VCS.hs
+++ b/cabal-install/src/Distribution/Client/VCS.hs
@@ -54,7 +54,7 @@ import Distribution.Version
 import qualified Distribution.PackageDescription as PD
 
 import Control.Exception
-         ( catch, throw, try )
+         ( throw, try )
 import Control.Monad.Trans
          ( liftIO )
 import qualified Data.Char as Char
@@ -324,7 +324,7 @@ vcsDarcs =
           [ vcsSyncRepo verbosity prog repo localDir (Just primaryLocalDir)
           | (repo, localDir) <- secondaryRepos ]
 
-    vcsSyncRepo verbosity prog SourceRepositoryPackage{..} localDir peer =
+    vcsSyncRepo verbosity prog SourceRepositoryPackage{..} localDir _peer =
       try (lines <$> darcsWithOutput localDir ["log", "--last", "1"]) >>= \ case
         Right (_:_:_:x:_)
           | Just tag <- (List.stripPrefix "tagged " . List.dropWhile Char.isSpace) x