fix build after Utility.Url changes
This commit is contained in:
parent
4ab1f3ff02
commit
85c5e51c53
1 changed files with 2 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue