X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FDriverFlags.hs;h=c6077f72648e0b4831aa7cbbc43eb00e1d60fe64;hb=d4337146a2b5f737a1d1ef13dcd87d066e308387;hp=c4a3e969636f1527d45dcbc0877361e7d75b927a;hpb=988b2042242ac1cd1f33372bfdd89acf69c4e127;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/DriverFlags.hs b/ghc/compiler/main/DriverFlags.hs
index c4a3e96..c6077f7 100644
--- a/ghc/compiler/main/DriverFlags.hs
+++ b/ghc/compiler/main/DriverFlags.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverFlags.hs,v 1.117 2003/06/24 07:58:20 simonpj Exp $
+-- $Id: DriverFlags.hs,v 1.118 2003/08/08 16:46:51 simonmar Exp $
 --
 -- Driver flags
 --
@@ -127,7 +127,7 @@ findArg :: [(String,OptKind)] -> String -> Maybe (String,OptKind)
 findArg spec arg
   = case [ (remove_spaces rest, k) 
 	 | (pat,k)   <- spec, 
-	   Just rest <- [my_prefix_match pat arg],
+	   Just rest <- [maybePrefixMatch pat arg],
 	   arg_ok k rest arg ] 
     of
 	[]      -> Nothing
@@ -252,7 +252,7 @@ static_flags =
 				    then do writeIORef v_Split_object_files True
 					    add v_Opt_C "-fglobalise-toplev-names"
 				    else hPutStrLn stderr
-					    "warning: don't know how to  split \
+					    "warning: don't know how to  split \ 
 					    \object files on this architecture"
 				) )