From e853681924c4cf1e1f2dd75276973aedd222d358 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 8 Feb 2002 15:00:40 +0000
Subject: [PATCH] [project @ 2002-02-08 15:00:40 by simonmar] Avoid using
 findPS/packString where simple string matching will do.

---
 ghc/compiler/main/DriverPipeline.hs |    7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 0da82e1..f48f9e0 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -58,7 +58,6 @@ import Monad
 import Maybe
 
 import PackedString
-import MatchPS
 
 -----------------------------------------------------------------------------
 -- genPipeline
@@ -981,9 +980,9 @@ doMkDLL o_files = do
 	 ++ pkg_lib_path_opts
 	 ++ pkg_lib_opts
 	 ++ pkg_extra_ld_opts
-         ++ (case findPS (packString (concat extra_ld_opts)) (packString "--def") of
-               Nothing -> [ "--export-all" ]
-	       Just _  -> [ "" ])
+         ++ (if "--def" `elem` (concatMap words extra_ld_opts)
+	       then [ "" ]
+               else [ "--export-all" ])
 	 ++ extra_ld_opts
 	))
 
-- 
1.7.10.4