Fall over more gracefully when there's a Template Haskell error

[ghc-hetmet.git] / compiler / deSugar / DsBinds.lhs

diff --git a/compiler/deSugar/DsBinds.lhs b/compiler/deSugar/DsBinds.lhs
index 64306af..e22cb00 100644 (file)
--- 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