|
definition:
|
updateRepository :: Config -> Bool -> Bool -> Bool -> Bool -> ErrorLogger ()
updateRepository cfg cleancache download usecache writecsv = do
let repodir = repositoryDir cfg
repodirbak = repodir ++ ".BAK"
logDebug $ "Recreating package index: '" ++ repodir ++ "'"
if download
then do
liftIOEL $ do removeDirectoryComplete repodirbak
renameDirectory repodir repodirbak -- save old repo
recreateDirectory repodir
c <- inDirectoryEL repodir (tryDownload (packageIndexURLs cfg))
if c == 0
then finishUpdate >> liftIOEL (removeDirectoryComplete repodirbak)
else do logDebug "Keeping old package index"
liftIOEL $ do removeDirectoryComplete repodir
renameDirectory repodirbak repodir
fail $ "Failed to update package index, return code " ++ show c
else tryInstallRepositoryDB cfg usecache writecsv
when cleancache $ do
logDebug $ "Deleting global package cache: '" ++
packageInstallDir cfg ++ "'"
liftIOEL $ removeDirectoryComplete $ packageInstallDir cfg
where
tryDownload [] = return 1
tryDownload (url:urls) = do c <- downloadCommand url
if c == 0 then return 0
else tryDownload urls
downloadCommand piurl
| ".git" `isSuffixOf` piurl
= let qcmd q = unwords ["git clone", q, quote piurl, "."]
in execQuietCmd (qcmd "-q") (qcmd "")
| ".tar" `isSuffixOf` piurl
= do let tarfile = "INDEX.tar"
curlcmd <- getCurlCmd
c1 <- showExecCmd $ unwords [curlcmd, "-o", tarfile, quote piurl]
c2 <- showExecCmd $ unwords ["tar", "-xf", tarfile]
liftIOEL $ whenFileExists tarfile $ removeFile tarfile
return (c1 + c2)
| ".tar.gz" `isSuffixOf` piurl
= do let tarfile = "INDEX.tar.gz"
curlcmd <- getCurlCmd
c1 <- showExecCmd $ unwords [curlcmd, "-o", tarfile, quote piurl]
c2 <- showExecCmd $ unwords ["tar", "-xzf", tarfile]
liftIOEL $ whenFileExists tarfile $ removeFile tarfile
return (c1 + c2)
| otherwise
= do logError $ "Unknown kind of package index URL: " ++ piurl
return 1
finishUpdate = do
setLastUpdate cfg
cleanRepositoryCache cfg
logInfo "Successfully downloaded repository index"
tryInstallRepositoryDB cfg usecache writecsv
|
|
documentation:
|
------------------------------------------------------------------------------
--- Updates the package index from the central Git repository.
--- If the second argument is `True`, also the global package cache
--- is cleaned in order to support downloading the newest versions.
--- If the third argument is `True`, the global package index is recreated
--- by downloading it from the central repository.
--- If the fourth argument is `True`, the package database is created
--- by reading the CSV file `REPOSITORY_CACHE.csv` downloaded from
--- the tar files URL, otherwise by reading all package specifications.
--- If the fifth argument is `True`, also a CSV file containing the
--- database entries is written.
|