X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FMain.hs;h=428f42edd93984e286e6b81f7ceed3663fba1bd2;hb=f109a0b2d927a8c7fe5cc9881f0dfdae3e34f399;hp=e9c83430b89d9a2d7679213cfd9dc097e28f39b5;hpb=41cd72b3545c96c72816afb7b7627f3e744d9ab4;p=ghc-hetmet.git

diff --git a/compiler/main/Main.hs b/compiler/main/Main.hs
index e9c8343..428f42e 100644
--- a/compiler/main/Main.hs
+++ b/compiler/main/Main.hs
@@ -70,7 +70,7 @@ main =
   argv0 <- getArgs
 
   let
-        (minusB_args, argv1) = partition (prefixMatch "-B") argv0
+        (minusB_args, argv1) = partition ("-B" `isPrefixOf`) argv0
         mbMinusB | null minusB_args = Nothing
                  | otherwise = Just (drop 2 (last minusB_args))