X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FZipCfg.hs;h=f07d2fa56e84b268b2d41ba973369648d9900ee0;hb=4f92da533cd1c7b5f41ef8794ee6a284f1680413;hp=1b9b5c309d169c248117d499d368eee1479a5dd5;hpb=5a7a311051c2a525c9692a7b2eb47a70cfc7c9fb;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