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/iface/TcIface.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/iface/TcIface.lhs')
| -rw-r--r-- | compiler/iface/TcIface.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/iface/TcIface.lhs b/compiler/iface/TcIface.lhs index 07b0b72bfa..45cc6ca774 100644 --- a/compiler/iface/TcIface.lhs +++ b/compiler/iface/TcIface.lhs @@ -1075,7 +1075,7 @@ tcPragExpr name expr core_expr' <- tcIfaceExpr expr -- Check for type consistency in the unfolding - ifOptM Opt_DoCoreLinting $ do + ifDOptM Opt_DoCoreLinting $ do in_scope <- get_in_scope_ids case lintUnfolding noSrcLoc in_scope core_expr' of Nothing -> return () |