From f6ed2f51d0b3fbb6d6049e9c7673b21946213700 Mon Sep 17 00:00:00 2001
From: Simon Peyton Jones <simonpj@microsoft.com>
Date: Mon, 19 Aug 2013 09:45:08 +0100
Subject: Fix Haddock formatting

---
 compiler/coreSyn/CoreUtils.lhs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'compiler/coreSyn')

diff --git a/compiler/coreSyn/CoreUtils.lhs b/compiler/coreSyn/CoreUtils.lhs
index 7c0a2d406e..ddf4406081 100644
--- a/compiler/coreSyn/CoreUtils.lhs
+++ b/compiler/coreSyn/CoreUtils.lhs
@@ -1626,7 +1626,7 @@ tryEtaReduce bndrs body
       , let result = mkCast fun co
       , not (any (`elemVarSet` exprFreeVars result) bndrs)
       = Just result   -- Check for any of the binders free in the result
-                      -- *including* the accumulated coercion
+                      -- including the accumulated coercion
 
     go (b : bs) (App fun arg) co
       | Just co' <- ok_arg b arg co
-- 
cgit v1.2.1