X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FDriverState.hs;h=468cc3543704d2a673cb25ef3a3e5254951913a2;hb=422fc0f14503dbb0ce09302b9afcb3d16a05d61e;hp=acd5e49c295c4d985e1cd59b29252dc713983ff5;hpb=7e4f1410ee23b99b720c7fc17e6fb8a59544214f;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/DriverState.hs b/ghc/compiler/main/DriverState.hs
index acd5e49..468cc35 100644
--- a/ghc/compiler/main/DriverState.hs
+++ b/ghc/compiler/main/DriverState.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverState.hs,v 1.88 2002/12/18 16:29:28 simonmar Exp $
+-- $Id: DriverState.hs,v 1.89 2002/12/19 18:43:53 wolfgang Exp $
 --
 -- Settings for the driver
 --
@@ -598,7 +598,7 @@ getPackageExtraCcOpts pkgs = do
 
 #ifdef darwin_TARGET_OS
 getPackageFrameworkPath  :: [PackageName] -> IO [String]
-getPackageFrameworkPath = do
+getPackageFrameworkPath pkgs = do
   ps <- getExplicitPackagesAnd pkgs
   return (nub (filter notNull (concatMap framework_dirs ps)))