[project @ 2002-05-15 08:59:58 by chak]

[ghc-hetmet.git] / ghc / compiler / main / HscMain.lhs

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index b3c1450..b174e5e 100644 (file)
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -499,6 +499,8 @@ myParseModule dflags src_filename
       buf <- hGetStringBuffer src_filename
 
       let exts = ExtFlags {glasgowExtsEF = dopt Opt_GlasgowExts dflags,
+                          ffiEF         = dopt Opt_FFI         dflags,
+                          withEF        = dopt Opt_With        dflags,
                           parrEF        = dopt Opt_PArr        dflags}
          loc  = mkSrcLoc (mkFastString src_filename) 1
 
@@ -672,6 +674,8 @@ hscParseStmt dflags str
       buf <- stringToStringBuffer str
 
       let exts = ExtFlags {glasgowExtsEF = dopt Opt_GlasgowExts dflags,
+                          ffiEF         = dopt Opt_FFI         dflags,
+                          withEF        = dopt Opt_With        dflags,
                           parrEF        = dopt Opt_PArr        dflags}
          loc  = mkSrcLoc FSLIT("<interactive>") 1
 
@@ -756,6 +760,8 @@ myParseIdentifier dflags str
   = do buf <- stringToStringBuffer str
  
        let exts = ExtFlags {glasgowExtsEF = dopt Opt_GlasgowExts dflags,
+                           ffiEF         = dopt Opt_FFI         dflags,
+                           withEF        = dopt Opt_With        dflags,
                            parrEF        = dopt Opt_PArr        dflags}
           loc  = mkSrcLoc FSLIT("<interactive>") 1