diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-09-18 16:38:15 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-09-18 16:38:15 +0000 |
| commit | a6f2d598e1e7760d334d1b5ea0b7745e66835e11 (patch) | |
| tree | 1c7db21d0add0858c021399e6953a69bf6c0017c /compiler/deSugar/Match.lhs | |
| parent | 896135d0231f798f264548f5935223d142e718a7 (diff) | |
| download | haskell-a6f2d598e1e7760d334d1b5ea0b7745e66835e11.tar.gz | |
Add separate functions for querying DynFlag and ExtensionFlag options
and remove the temporary DOpt class workaround.
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 649b2f135e..2c9aa0bfd8 100644 --- a/compiler/deSugar/Match.lhs +++ b/compiler/deSugar/Match.lhs @@ -293,7 +293,7 @@ match vars@(v:_) ty eqns ; let grouped = groupEquations tidy_eqns -- print the view patterns that are commoned up to help debug - ; ifOptM Opt_D_dump_view_pattern_commoning (debug grouped) + ; ifDOptM Opt_D_dump_view_pattern_commoning (debug grouped) ; match_results <- mapM match_group grouped ; return (adjustMatchResult (foldr1 (.) aux_binds) $ |