[project @ 2005-01-27 10:44:00 by simonpj]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcForeign.lhs

diff --git a/ghc/compiler/typecheck/TcForeign.lhs b/ghc/compiler/typecheck/TcForeign.lhs
index bcf08e4..840da46 100644 (file)
--- a/ghc/compiler/typecheck/TcForeign.lhs
+++ b/ghc/compiler/typecheck/TcForeign.lhs
@@ -47,7 +47,7 @@ import ForeignCall    ( CExportSpec(..), CCallTarget(..),
                          CLabelString, isCLabelString,
                          isDynamicTarget, withDNTypes, DNKind(..), DNCallSpec(..) ) 
 import PrelNames       ( hasKey, ioTyConKey )
-import CmdLineOpts     ( dopt_HscLang, HscLang(..) )
+import CmdLineOpts     ( dopt_HscTarget, HscTarget(..) )
 import Outputable
 import SrcLoc          ( Located(..), srcSpanStart )
 import Bag             ( consBag )
@@ -316,11 +316,11 @@ checkCOrAsmOrDotNetOrInterp other
 
 checkCg check
  = getDOpts            `thenM` \ dflags ->
-   let hscLang = dopt_HscLang dflags in
-   case hscLang of
+   let hscTarget = dopt_HscTarget dflags in
+   case hscTarget of
      HscNothing -> returnM ()
      otherwise  ->
-       case check hscLang of
+       case check hscTarget of
         Nothing  -> returnM ()
         Just err -> addErrTc (text "Illegal foreign declaration:" <+> err)
 \end{code}