diff options
Diffstat (limited to 'compiler/iface')
| -rw-r--r-- | compiler/iface/FlagChecker.hs | 2 | ||||
| -rw-r--r-- | compiler/iface/LoadIface.lhs | 2 | ||||
| -rw-r--r-- | compiler/iface/MkIface.lhs | 2 | ||||
| -rw-r--r-- | compiler/iface/TcIface.lhs | 4 |
4 files changed, 5 insertions, 5 deletions
diff --git a/compiler/iface/FlagChecker.hs b/compiler/iface/FlagChecker.hs index e568d556f2..ca8cf28a09 100644 --- a/compiler/iface/FlagChecker.hs +++ b/compiler/iface/FlagChecker.hs @@ -43,7 +43,7 @@ fingerprintDynFlags dflags@DynFlags{..} this_mod nameio = paths = [ hcSuf ] -- -fprof-auto etc. - prof = if dopt Opt_SccProfilingOn dflags then fromEnum profAuto else 0 + prof = if gopt Opt_SccProfilingOn dflags then fromEnum profAuto else 0 in -- pprTrace "flags" (ppr (mainis, safeHs, lang, cpp, paths)) $ computeFingerprint nameio (mainis, safeHs, lang, cpp, paths, prof) diff --git a/compiler/iface/LoadIface.lhs b/compiler/iface/LoadIface.lhs index 6c5e7d38d9..f978577b23 100644 --- a/compiler/iface/LoadIface.lhs +++ b/compiler/iface/LoadIface.lhs @@ -247,7 +247,7 @@ loadInterface doc_str mod from -- If we do loadExport first the wrong info gets into the cache (unless we -- explicitly tag each export which seems a bit of a bore) - ; ignore_prags <- doptM Opt_IgnoreInterfacePragmas + ; ignore_prags <- goptM Opt_IgnoreInterfacePragmas ; new_eps_decls <- loadDecls ignore_prags (mi_decls iface) ; new_eps_insts <- mapM tcIfaceInst (mi_insts iface) ; new_eps_fam_insts <- mapM tcIfaceFamInst (mi_fam_insts iface) diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs index c63a2e5c1d..bf8edc4777 100644 --- a/compiler/iface/MkIface.lhs +++ b/compiler/iface/MkIface.lhs @@ -1131,7 +1131,7 @@ check_old_iface hsc_env mod_summary src_modified maybe_iface return $ Just iface src_changed - | dopt Opt_ForceRecomp (hsc_dflags hsc_env) = True + | gopt Opt_ForceRecomp (hsc_dflags hsc_env) = True | SourceModified <- src_modified = True | otherwise = False in do diff --git a/compiler/iface/TcIface.lhs b/compiler/iface/TcIface.lhs index 19b5cfe405..37965185cf 100644 --- a/compiler/iface/TcIface.lhs +++ b/compiler/iface/TcIface.lhs @@ -256,7 +256,7 @@ typecheckIface iface -- information that we shouldn't. From a versioning point of view -- It's not actually *wrong* to do so, but in fact GHCi is unable -- to handle unboxed tuples, so it must not see unfoldings. - ignore_prags <- doptM Opt_IgnoreInterfacePragmas + ignore_prags <- goptM Opt_IgnoreInterfacePragmas -- Typecheck the decls. This is done lazily, so that the knot-tying -- within this single module work out right. In the If monad there is @@ -1272,7 +1272,7 @@ tcPragExpr name expr core_expr' <- tcIfaceExpr expr -- Check for type consistency in the unfolding - ifDOptM Opt_DoCoreLinting $ do + whenGOptM Opt_DoCoreLinting $ do in_scope <- get_in_scope case lintUnfolding noSrcLoc in_scope core_expr' of Nothing -> return () |