X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FOccurAnal.lhs;fp=ghc%2Fcompiler%2FsimplCore%2FOccurAnal.lhs;h=021ee87fdb2dc62294163e4068eb3d7eb2220e10;hb=f2054812b868d752c75dd0b148cc884b00f5e5d6;hp=e76d267f77542680c105ef19af5751f638961189;hpb=a704ee9c4180bf19a431e507f5d32a1f787c5c47;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/OccurAnal.lhs b/ghc/compiler/simplCore/OccurAnal.lhs
index e76d267..021ee87 100644
--- a/ghc/compiler/simplCore/OccurAnal.lhs
+++ b/ghc/compiler/simplCore/OccurAnal.lhs
@@ -195,6 +195,9 @@ shortMeOut ind_env exported_id local_id
    
        not (local_id `elemVarEnv` ind_env)	-- Only if not already substituted for
     then
+	True
+
+{- No longer needed
 	if shortableIdInfo (idInfo exported_id) 	-- Only if its IdInfo is 'shortable'
 							-- (see the defn of IdInfo.shortableIdInfo)
 	then True
@@ -203,6 +206,7 @@ shortMeOut ind_env exported_id local_id
           pprTrace "shortMeOut:" (ppr exported_id)
 #endif
                                                 False
+-}
     else
 	False
 \end{code}