Merge remote-tracking branch 'origin/master' into type-nats
[ghc.git] / compiler / deSugar / Match.lhs
index f2e3be8..c80446a 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