From: simonpj <unknown>
Date: Thu, 3 May 2001 08:10:09 +0000 (+0000)
Subject: [project @ 2001-05-03 08:10:09 by simonpj]
X-Git-Tag: Approximately_9120_patches~2028
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=30e444ea34c78423b60e4ee250b516fc1cc2ae3a;p=ghc-hetmet.git

[project @ 2001-05-03 08:10:09 by simonpj]
Comment wibble only
---

diff --git a/ghc/compiler/simplCore/OccurAnal.lhs b/ghc/compiler/simplCore/OccurAnal.lhs
index eaa3383..750e2b6 100644
--- a/ghc/compiler/simplCore/OccurAnal.lhs
+++ b/ghc/compiler/simplCore/OccurAnal.lhs
@@ -210,7 +210,7 @@ shortMeOut ind_env exported_id local_id
        not (local_id `elemVarEnv` ind_env)	-- Only if not already substituted for
     then
 	if shortableIdInfo (idInfo exported_id) 	-- Only if its IdInfo is 'shortable'
-							-- (see the defn of IdInfo.shortableIdInfo
+							-- (see the defn of IdInfo.shortableIdInfo)
 	then True
 	else pprTrace "shortMeOut:" (ppr exported_id) False
     else