Commit 0e4e0eb6 authored by Christiaan Baaij's avatar Christiaan Baaij
Browse files

Wobble layout

parent e2b81b09
......@@ -176,22 +176,14 @@ generateRegistrationInfo verbosity pkg lib lbi clbi inplace reloc distPref packa
_other -> do
return (InstalledPackageId (display (packageId pkg)))
-- let installedPkgInfo
-- | inplace = inplaceInstalledPackageInfo pwd distPref
-- pkg ipid lib lbi clbi
-- | reloc = relocatableInstalledPackageInfo
-- pkg ipid lib lbi clbi undefined
-- | otherwise = absoluteInstalledPackageInfo
-- pkg ipid lib lbi clbi
installedPkgInfo <- if inplace then
return (inplaceInstalledPackageInfo pwd distPref
installedPkgInfo <-
if inplace
then return (inplaceInstalledPackageInfo pwd distPref
pkg ipid lib lbi clbi)
else if reloc then
relocRegistrationInfo verbosity pkg lib lbi clbi ipid
packageDb
else
return (absoluteInstalledPackageInfo
else if reloc
then relocRegistrationInfo verbosity
pkg lib lbi clbi ipid packageDb
else return (absoluteInstalledPackageInfo
pkg ipid lib lbi clbi)
......
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