Sync repo — Darcs: Be warned.

haskell · Oct 29, 2020 · 7e60b5b · 7e60b5b
1 parent 766243c
commit 7e60b5b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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