X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2Fmain%2FDriverFlags.hs;h=ba609613a12fe6d41eee3faa86d9df1092486a58;hb=de1d4a16d94fa13e9d40a1ac755eae6249595e66;hp=8a6f1a561fbe92ed89eb82ed5f3652eb32af46aa;hpb=cccb6444f80ceb5adb36dbba2f1844b333a0e3f3;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/DriverFlags.hs b/ghc/compiler/main/DriverFlags.hs
index 8a6f1a5..ba60961 100644
--- a/ghc/compiler/main/DriverFlags.hs
+++ b/ghc/compiler/main/DriverFlags.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverFlags.hs,v 1.93 2002/05/11 10:02:22 panne Exp $
+-- $Id: DriverFlags.hs,v 1.94 2002/05/15 08:59:59 chak Exp $
 --
 -- Driver flags
 --
@@ -457,6 +457,9 @@ fFlags = [
   ( "warn-unused-matches",       	Opt_WarnUnusedMatches ),
   ( "warn-deprecations",         	Opt_WarnDeprecations ),
   ( "glasgow-exts", 		 	Opt_GlasgowExts ),
+  ( "fi",				Opt_FFI ),  -- support `-ffi'...
+  ( "ffi",				Opt_FFI ),  -- ...and also `-fffi'
+  ( "with",				Opt_With ), -- with keyword
   ( "parr",				Opt_PArr ),
   ( "allow-overlapping-instances", 	Opt_AllowOverlappingInstances ),
   ( "allow-undecidable-instances", 	Opt_AllowUndecidableInstances ),