mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix build

Browse source
This commit is contained in:
Joey Hess 2020-11-16 09:56:03 -04:00
parent 17c92fcae5
commit 21ab496f6b
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Build/DistributionUpdate.hs
View file

@ -65,7 +65,7 @@ main = do
topdir <- getCurrentDirectory topdir <- getCurrentDirectory
changeWorkingDirectory repodir changeWorkingDirectory repodir
updated <- catMaybes <$> mapM (getbuild repodir) autobuilds updated <- catMaybes <$> mapM (getbuild repodir) autobuilds
state <- Annex.new =<< Git.Construct.fromPath "." state <- Annex.new =<< Git.Construct.fromPath (toRawFilePath ".")
ood <- Annex.eval state $ do ood <- Annex.eval state $ do
buildrpms topdir updated buildrpms topdir updated
makeinfos updated version makeinfos updated version
@ -84,7 +84,7 @@ getbuild repodir (url, f) = do
let dest = repodir </> f let dest = repodir </> f
let tmp = dest ++ ".tmp" let tmp = dest ++ ".tmp"
removeWhenExistsWith removeFile tmp removeWhenExistsWith removeFile tmp
createDirectoryIfMissing True (parentDir dest) createDirectoryIfMissing True (fromRawFilePath (parentDir (toRawFilePath dest)))
let oops s = do let oops s = do
removeWhenExistsWith removeFile tmp removeWhenExistsWith removeFile tmp
putStrLn $ "*** " ++ s putStrLn $ "*** " ++ s