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

Wobble layout

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