diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-01-19 13:17:50 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-01-19 13:17:50 +0000 |
| commit | 3220e571006d9ec1fc20aaf210187189b4b146cc (patch) | |
| tree | 2530379f06df81b4c9df7af99ff88dae0970af6f /compiler/deSugar/Match.lhs | |
| parent | 8bdcc5cf6896260eb520f18fa2475af10a969dbe (diff) | |
| download | haskell-3220e571006d9ec1fc20aaf210187189b4b146cc.tar.gz | |
Remove getDOptsDs; use getDynFlags instead
Diffstat (limited to 'compiler/deSugar/Match.lhs')
| -rw-r--r-- | compiler/deSugar/Match.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/deSugar/Match.lhs b/compiler/deSugar/Match.lhs index cd0153e3ac..974d3183a7 100644 --- a/compiler/deSugar/Match.lhs +++ b/compiler/deSugar/Match.lhs @@ -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 |