X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FZipCfg.hs;h=f07d2fa56e84b268b2d41ba973369648d9900ee0;hb=30c122df62ec75f9ed7f392f24c2925675bf1d06;hp=1b9b5c309d169c248117d499d368eee1479a5dd5;hpb=7c7104a51d477c18f8950112c4bc22c4800367f3;p=ghc-hetmet.git

diff --git a/compiler/cmm/ZipCfg.hs b/compiler/cmm/ZipCfg.hs
index 1b9b5c3..f07d2fa 100644
--- a/compiler/cmm/ZipCfg.hs
+++ b/compiler/cmm/ZipCfg.hs
@@ -707,5 +707,3 @@ pprGraph (Graph tail blockenv) =
     where pprBlock (Block id tail) = ppr id <> colon $$ ppr tail
           blocks = postorder_dfs_from blockenv tail
 
-_unused :: FS.FastString
-_unused = undefined