X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcExpr.lhs;h=d68e8b0fde8a9af9042bd68f89af140eb9c123e5;hp=d6099816bf03709193dcda649464740d28f45677;hb=27ca67931713c36f5ed248de88298416892e5649;hpb=08093c69ca77dc2759d3ecf2effd1152a972be3c

diff --git a/compiler/typecheck/TcExpr.lhs b/compiler/typecheck/TcExpr.lhs
index d609981..d68e8b0 100644
--- a/compiler/typecheck/TcExpr.lhs
+++ b/compiler/typecheck/TcExpr.lhs
@@ -772,8 +772,8 @@ instFun orig fun subst []
   = return fun		-- Common short cut
 
 instFun orig fun subst tv_theta_prs
-  = do 	{-- !!!SPJ: 	-- Horrid check for tagToEnum; see Note [tagToEnum#]
-	 -- !!!SPJ: checkBadTagToEnumCall fun_id qtv_tys
+  = do 	{ -- !!!SPJ: 	-- Horrid check for tagToEnum; see Note [tagToEnum#]
+	  -- !!!SPJ: checkBadTagToEnumCall fun_id qtv_tys
 
 	; let ty_theta_prs' = map subst_pr tv_theta_prs