From: Ian Lynagh Date: Thu, 17 Jul 2008 22:35:43 +0000 (+0000) Subject: Fix some argument names X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=249bcf1f34e240a39abbcbb29bd6b97ddece421f Fix some argument names --- diff --git a/compiler/main/Packages.lhs b/compiler/main/Packages.lhs index c2010c9..c98992a 100644 --- a/compiler/main/Packages.lhs +++ b/compiler/main/Packages.lhs @@ -136,7 +136,7 @@ extendPackageConfigMap pkg_map new_pkgs where add pkg_map p = addToUFM pkg_map (packageConfigId p) p getPackageDetails :: PackageState -> PackageId -> PackageConfig -getPackageDetails dflags ps = expectJust "getPackageDetails" (lookupPackage (pkgIdMap dflags) ps) +getPackageDetails ps pid = expectJust "getPackageDetails" (lookupPackage (pkgIdMap ps) pid) -- ---------------------------------------------------------------------------- -- Loading the package config files and building up the package state