Remove getDOptsDs; use getDynFlags instead
authorIan Lynagh <igloo@earth.li>
Thu, 19 Jan 2012 13:17:50 +0000 (13:17 +0000)
committerIan Lynagh <igloo@earth.li>
Thu, 19 Jan 2012 13:17:50 +0000 (13:17 +0000)
compiler/deSugar/DsExpr.lhs
compiler/deSugar/DsListComp.lhs
compiler/deSugar/DsMonad.lhs
compiler/deSugar/Match.lhs

index 157754b..b34640a 100644 (file)
@@ -683,7 +683,7 @@ makes all list literals be generated via the simple route.
 dsExplicitList :: PostTcType -> [LHsExpr Id] -> DsM CoreExpr
 -- See Note [Desugaring explicit lists]
 dsExplicitList elt_ty xs
-  = do { dflags <- getDOptsDs
+  = do { dflags <- getDynFlags
        ; xs' <- mapM dsLExpr xs
        ; let (dynamic_prefix, static_suffix) = spanTail is_static xs'
        ; if opt_SimpleListLiterals                      -- -fsimple-list-literals
index 4ad8006..917e8b1 100644 (file)
@@ -47,7 +47,7 @@ dsListComp :: [LStmt Id]
            -> Type              -- Type of entire list
            -> DsM CoreExpr
 dsListComp lquals res_ty = do
-    dflags <- getDOptsDs
+    dflags <- getDynFlags
     let quals = map unLoc lquals
         elt_ty = case tcTyConAppArgs res_ty of
                    [elt_ty] -> elt_ty
index 551165a..1da9024 100644 (file)
@@ -20,7 +20,7 @@ module DsMonad (
         mkPrintUnqualifiedDs,
         newUnique, 
         UniqSupply, newUniqueSupply,
-        getDOptsDs, getGhcModeDs, doptDs, woptDs,
+        getGhcModeDs, doptDs, woptDs,
         dsLookupGlobal, dsLookupGlobalId, dsDPHBuiltin, dsLookupTyCon, dsLookupDataCon,
         
         PArrBuiltin(..), 
@@ -346,9 +346,6 @@ We can also reach out and either set/grab location information from
 the @SrcSpan@ being carried around.
 
 \begin{code}
-getDOptsDs :: DsM DynFlags
-getDOptsDs = getDOpts
-
 doptDs :: DynFlag -> TcRnIf gbl lcl Bool
 doptDs = doptM
 
@@ -356,7 +353,7 @@ woptDs :: WarningFlag -> TcRnIf gbl lcl Bool
 woptDs = woptM
 
 getGhcModeDs :: DsM GhcMode
-getGhcModeDs =  getDOptsDs >>= return . ghcMode
+getGhcModeDs =  getDynFlags >>= return . ghcMode
 
 getModuleDs :: DsM Module
 getModuleDs = do { env <- getGblEnv; return (ds_mod env) }
index cd0153e..974d318 100644 (file)
@@ -66,7 +66,7 @@ matchCheck ::  DsMatchContext
             -> DsM MatchResult  -- Desugared result!
 
 matchCheck ctx vars ty qs
-  = do { dflags <- getDOptsDs
+  = do { dflags <- getDynFlags
        ; matchCheck_really dflags ctx vars ty qs }
 
 matchCheck_really :: DynFlags