From: sof <unknown>
Date: Wed, 20 Aug 2003 18:48:20 +0000 (+0000)
Subject: [project @ 2003-08-20 18:48:20 by sof]
X-Git-Tag: Approx_11550_changesets_converted~532
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=867d096a2d598791d13d85c20bf37d0f4174a667

[project @ 2003-08-20 18:48:20 by sof]
my_prefix_match ~> Util.maybePrefixMatch
---

diff --git a/ghc/compiler/main/DriverState.hs b/ghc/compiler/main/DriverState.hs
index c24e569..7c01e32 100644
--- a/ghc/compiler/main/DriverState.hs
+++ b/ghc/compiler/main/DriverState.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverState.hs,v 1.94 2003/06/25 08:20:21 simonpj Exp $
+-- $Id: DriverState.hs,v 1.95 2003/08/20 18:48:20 sof Exp $
 --
 -- Settings for the driver
 --
@@ -467,8 +467,8 @@ mungePackagePaths top_dir ps = map munge_pkg ps
   munge_paths = map munge_path
 
   munge_path p 
-	  | Just p' <- my_prefix_match "$libdir" p = top_dir ++ p'
-	  | otherwise				   = p
+	  | Just p' <- maybePrefixMatch "$libdir" p = top_dir ++ p'
+	  | otherwise				    = p
 
 
 -- -----------------------------------------------------------------------------