|
definition:
|
acquireAndInstallPackage :: Config -> Package -> ErrorLogger ()
acquireAndInstallPackage cfg pkg = do
pkgDirExists <- liftIOEL $ doesDirectoryExist (installedPackageDir cfg pkg)
if pkgDirExists
then logInfo $ "Package '" ++ packageId pkg ++
"' already installed, skipping"
else tryInstallFromURLs (packageTarFilesURLs cfg)
where
tryInstallFromURLs [] = fail "No URLs for installations"
tryInstallFromURLs (url:urls) = do
let stdurl = url ++ "/" ++ packageId pkg ++ ".tar.gz"
logInfo $ "Installing package from " ++ stdurl
ll <- getLogLevel
err <- tryEL (ll /= Debug) $
installPackageSourceTo pkg (Http stdurl) (packageInstallDir cfg)
case err of
Left _ -> if null urls
then do -- Try to download the source repo of the package:
pkgspec <- readPackageFromRepository cfg pkg
maybe (fail downloadError)
(installFromSource cfg pkgspec)
(source pkgspec)
else tryInstallFromURLs urls
Right _ -> acquireAndInstallPackageFromSource cfg pkg
downloadError =
"Package downloading failed. Use option '-v debug' for more infos."
|
|
demand:
|
no demanded arguments
|
|
deterministic:
|
deterministic operation
|
|
documentation:
|
--- Acquires a package, either from the global tar file repository
--- or from the source specified in its specification, and
--- installs it to the global package cache.
|
|
failfree:
|
<FAILING>
|
|
indeterministic:
|
referentially transparent operation
|
|
infix:
|
no fixity defined
|
|
iotype:
|
{(_,_) |-> _}
|
|
name:
|
acquireAndInstallPackage
|
|
precedence:
|
no precedence defined
|
|
result-values:
|
_
|
|
signature:
|
CPM.Config.Config -> CPM.Package.Package -> CPM.ErrorLogger.ErrorLogger ()
|
|
solution-complete:
|
operation might suspend on free variables
|
|
terminating:
|
possibly non-terminating
|
|
totally-defined:
|
possibly non-reducible on same data term
|