Commit 6a79280a authored by Mikhail Glushenkov's avatar Mikhail Glushenkov
Browse files

Rename the 'maybeRegister' helper to 'maybeGenPkgConf'.

parent 6892a378
......@@ -1241,7 +1241,7 @@ installUnpackedPackage verbosity buildLimit installLock numJobs
-- Install phase
onFailure InstallFailed $ criticalSection installLock $ do
-- Capture installed package configuration file
maybePkgConf <- maybeRegister
maybePkgConf <- maybeGenPkgConf
-- Actual installation
withWin32SelfUpgrade verbosity configFlags compid platform pkg $ do
......@@ -1297,8 +1297,8 @@ installUnpackedPackage verbosity buildLimit installLock numJobs
userInstall = fromFlagOrDefault defaultUserInstall
(configUserInstall configFlags')
maybeRegister :: IO (Maybe Installed.InstalledPackageInfo)
maybeRegister =
maybeGenPkgConf :: IO (Maybe Installed.InstalledPackageInfo)
maybeGenPkgConf =
if shouldRegister then do
tmp <- getTemporaryDirectory
withTempFile tmp (tempTemplate "pkgConf") $ \pkgConfFile handle -> do
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment