X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDsBinds.lhs;fp=ghc%2Fcompiler%2FdeSugar%2FDsBinds.lhs;h=f045619bac2cd3877f4b3a97679e94712a0efdcf;hb=2c6d73e2ca9a545c4295c6f532cd3612e7fd3d8d;hp=cc9c36393fdda50d10a1f543d113bbf6b01cb5f6;hpb=0004357ccaa3149cb112f5f5df1af60e65baad79;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsBinds.lhs b/ghc/compiler/deSugar/DsBinds.lhs
index cc9c363..f045619 100644
--- a/ghc/compiler/deSugar/DsBinds.lhs
+++ b/ghc/compiler/deSugar/DsBinds.lhs
@@ -78,11 +78,9 @@ dsMonoBinds _ (VarMonoBind var expr) rest
 
 dsMonoBinds auto_scc (FunMonoBind fun _ matches locn) rest
   = putSrcLocDs locn	$
-    matchWrapper (FunRhs (idName fun)) matches error_string	`thenDs` \ (args, body) ->
-    addAutoScc auto_scc (fun, mkLams args body)			`thenDs` \ pair ->
+    matchWrapper (FunRhs fun) matches 			`thenDs` \ (args, body) ->
+    addAutoScc auto_scc (fun, mkLams args body)		`thenDs` \ pair ->
     returnDs (pair : rest)
-  where
-    error_string = "function " ++ showSDoc (ppr fun)
 
 dsMonoBinds auto_scc (PatMonoBind pat grhss locn) rest
   = putSrcLocDs locn $