X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcDefaults.lhs;h=50b5767cef93614c00d88330f39d0e26931392bb;hp=97d51a1fcd8f2663d3c34880f27746ac7d5c87a4;hb=a6f2d598e1e7760d334d1b5ea0b7745e66835e11;hpb=896135d0231f798f264548f5935223d142e718a7

diff --git a/compiler/typecheck/TcDefaults.lhs b/compiler/typecheck/TcDefaults.lhs
index 97d51a1..50b5767 100644
--- a/compiler/typecheck/TcDefaults.lhs
+++ b/compiler/typecheck/TcDefaults.lhs
@@ -47,7 +47,7 @@ tcDefaults [L _ (DefaultDecl [])]
 tcDefaults [L locn (DefaultDecl mono_tys)]
   = setSrcSpan locn 			$
     addErrCtxt defaultDeclCtxt		$
-    do	{ ovl_str <- doptM Opt_OverloadedStrings
+    do	{ ovl_str <- xoptM Opt_OverloadedStrings
 	; num_class    <- tcLookupClass numClassName
 	; is_str_class <- tcLookupClass isStringClassName
 	; let deflt_clss | ovl_str   = [num_class, is_str_class]