diff options
| author | sof <unknown> | 2003-08-20 18:48:20 +0000 |
|---|---|---|
| committer | sof <unknown> | 2003-08-20 18:48:20 +0000 |
| commit | 867d096a2d598791d13d85c20bf37d0f4174a667 (patch) | |
| tree | ebdf06f89812bbccabe3363fbceecd07ed43593d | |
| parent | 793ae9ef474a90b7e66bca52591d3cdf7efa61a8 (diff) | |
| download | haskell-867d096a2d598791d13d85c20bf37d0f4174a667.tar.gz | |
[project @ 2003-08-20 18:48:20 by sof]
my_prefix_match ~> Util.maybePrefixMatch
| -rw-r--r-- | ghc/compiler/main/DriverState.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/compiler/main/DriverState.hs b/ghc/compiler/main/DriverState.hs index c24e569fc8..7c01e32323 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 -- ----------------------------------------------------------------------------- |