From 249bcf1f34e240a39abbcbb29bd6b97ddece421f Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Thu, 17 Jul 2008 22:35:43 +0000 Subject: [PATCH] Fix some argument names --- compiler/main/Packages.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4