X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FdeSugar%2FMatch.lhs;h=ca18706f229fc388cf5ca19e83cf3e96688ee801;hp=52c267482baaccdcd31ab806ea9b8abb1d0f7279;hb=a8427a4125e9b78e88a487eeabf018f1c6e8bc08;hpb=f6a68d3109f977fe4431df51d1412d916e7c08da

diff --git a/compiler/deSugar/Match.lhs b/compiler/deSugar/Match.lhs
index 52c2674..ca18706 100644
--- a/compiler/deSugar/Match.lhs
+++ b/compiler/deSugar/Match.lhs
@@ -123,8 +123,8 @@ pp_context (DsMatchContext kind _loc) msg rest_of_msg_fun
   where
     (ppr_match, pref)
 	= case kind of
-	     FunRhs fun -> (pprMatchContext kind, \ pp -> ppr fun <+> pp)
-	     other	-> (pprMatchContext kind, \ pp -> pp)
+	     FunRhs fun _ -> (pprMatchContext kind, \ pp -> ppr fun <+> pp)
+	     other	  -> (pprMatchContext kind, \ pp -> pp)
 
 ppr_pats pats = sep (map ppr pats)