[commit: ghc] master: Temporary fix to the crash (b7bdf13)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/b7bdf13d9cf1c31f7f7eab063150aa7362d67941/ghc

>---------------------------------------------------------------

commit b7bdf13d9cf1c31f7f7eab063150aa7362d67941
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Thu Aug 28 17:50:49 2014 +0100

    Temporary fix to the crash
    
       ghc-stage2: panic! (the 'impossible' happened)
         (GHC version 7.9.20140828 for x86_64-unknown-linux):
       	nameModule $w$smiddle_sfx6
    
       make[1]: *** [utils/haddock/dist/build/Haddock/Backends/Xhtml.dyn_o] Error 1


>---------------------------------------------------------------

b7bdf13d9cf1c31f7f7eab063150aa7362d67941
 compiler/main/TidyPgm.lhs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/main/TidyPgm.lhs b/compiler/main/TidyPgm.lhs
index ba5ccb7..faec956 100644
--- a/compiler/main/TidyPgm.lhs
+++ b/compiler/main/TidyPgm.lhs
@@ -448,7 +448,7 @@ So trimAutoRules does this:
   * Remove all bindings that are kept alive *only* by isAutoRule rules
   * Remove all auto rules that mention bindings that have been removed
 So if a binding is kept alive for some other reason (e.g. f_spec is
-called in the final code), we keep th e rule too.
+called in the final code), we keep the rule too.
 
 I found that binary sizes jumped by 6-10% when I started to specialise
 INLINE functions (again, Note [Inline specialisations] in Specialise).
@@ -459,7 +459,7 @@ Adding trimAutoRules removed all this bloat.
 trimAutoRules :: [CoreBind] -> [CoreRule] -> ([CoreBind], [CoreRule])
 -- See Note [Trimming auto rules]
 trimAutoRules binds rules
-  | null auto_rules
+  | True {- null auto_rules -}  -- Temporrary fix
   = (binds, rules)
   | otherwise
   = (binds', filter keep_rule auto_rules ++ user_rules)