diff options
Diffstat (limited to 'utils/installPackage')
| -rw-r--r-- | utils/installPackage/installPackage.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/installPackage/installPackage.hs b/utils/installPackage/installPackage.hs index f36fd233de..2c3d245fc8 100644 --- a/utils/installPackage/installPackage.hs +++ b/utils/installPackage/installPackage.hs @@ -39,11 +39,11 @@ parseArgs :: [String] Bool, -- enable shell wrappers? Bool) -- strip exe? parseArgs = f normal defaultDistPref False True - where f v dp esw strip (('-':'v':val):args) + where f _ dp esw strip (('-':'v':val):args) = f (readEOrFail flagToVerbosity val) dp esw strip args f v _ esw strip ("--distpref":dp:args) = f v dp esw strip args f v dp _ strip ("--enable-shell-wrappers":args) = f v dp True strip args - f v dp esw strip ("--disable-executable-stripping":args) = f v dp esw False args + f v dp esw _ ("--disable-executable-stripping":args) = f v dp esw False args f v dp esw strip [] = (v, dp, esw, strip) f _ _ _ _ args = error ("Bad arguments: " ++ show args) |