fix build after Utility.Url changes

diff --git a/Build/DistributionUpdate.hs b/Build/DistributionUpdate.hs
index 976477ce4368ca4be73168f712f25681ad0aebd6..0efe02fb68ab3e2513f459bea92723e37dd9d9a1 100644 (file)
--- a/Build/DistributionUpdate.hs
+++ b/Build/DistributionUpdate.hs
@@ -26,6 +26,7 @@ import Git.Command
 
 import Data.Time.Clock
 import Data.Char
+import Data.Either
 import System.Posix.Directory
 
 -- git-annex distribution signing key (for Joey Hess)
@@ -86,7 +87,7 @@ getbuild repodir (url, f) = do
                putStrLn $ "*** " ++ s
                return Nothing
        uo <- defUrlOptions
-       ifM (download nullMeterUpdate url tmp uo)
+       ifM (isRight <$> download nullMeterUpdate url tmp uo)
                ( ifM (liftIO $ virusFree tmp)
                        ( do
                                bv2 <- getbv