X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FBinderInfo.lhs;h=6723bc67d1032dddfcfc033d40aa8d3251600133;hb=d2cf1d400e2ef64e824432aa350f3cf244ece2b3;hp=782f5141b9a2c237442d1e52b813c47c7bf11254;hpb=564c3082c4ed4d52680e397258aa8a5a2025f5a3;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/BinderInfo.lhs b/ghc/compiler/simplCore/BinderInfo.lhs
index 782f514..6723bc6 100644
--- a/ghc/compiler/simplCore/BinderInfo.lhs
+++ b/ghc/compiler/simplCore/BinderInfo.lhs
@@ -135,6 +135,7 @@ isInlinableOcc whnf small (ManyOcc _)
 isInlinableOcc whnf small (OneOcc _ dup_danger _ n_alts _)
   =  (whnf || (case dup_danger of {NoDupDanger -> True; other -> False}))
   && (small || n_alts <= 1)
+isInlinableOcc _ _ DeadCode = False
 
 isDeadOcc :: BinderInfo -> Bool
 isDeadOcc DeadCode = True