X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FdeSugar%2FDsBinds.lhs;h=e22cb001cb410e1c9e1177e17d6bbdb11b5a0231;hp=64306af0e0f30195d4a79ca44b4a37ea1ff38709;hb=7a59afcebe45ea87c42006873f77eb4600d7316f;hpb=d5c6d00221c1398732b45991ecbb1ab0c08cc977

diff --git a/compiler/deSugar/DsBinds.lhs b/compiler/deSugar/DsBinds.lhs
index 64306af..e22cb00 100644
--- a/compiler/deSugar/DsBinds.lhs
+++ b/compiler/deSugar/DsBinds.lhs
@@ -236,7 +236,7 @@ dsSpec all_tvs dicts tvs poly_id mono_id mono_bind
 	      mb_lhs  	    = decomposeRuleLhs (bndrs ++ const_dicts) body
 
 	; case mb_lhs of
-	    Nothing -> do { dsWarn msg; return Nothing }
+	    Nothing -> do { warnDs msg; return Nothing }
 
 	    Just (bndrs', var, args) -> return (Just (addInlineInfo inl spec_id spec_rhs, rule))
 		where