X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FCmmOpt.hs;h=6adafb5feb00a2b6c297a3c83c3afd605fb5e8ec;hb=4f92da533cd1c7b5f41ef8794ee6a284f1680413;hp=4d0390d8175a55e7433827ff114e20303c1c89e5;hpb=2f12b0ddeac0b1ac924dea52aef1ab5815802c78;p=ghc-hetmet.git

diff --git a/compiler/cmm/CmmOpt.hs b/compiler/cmm/CmmOpt.hs
index 4d0390d..6adafb5 100644
--- a/compiler/cmm/CmmOpt.hs
+++ b/compiler/cmm/CmmOpt.hs
@@ -574,5 +574,3 @@ isComparisonExpr _other 	    = False
 isPicReg (CmmReg (CmmGlobal PicBaseReg)) = True
 isPicReg _ = False
 
-_unused :: FS.FastString -- stops a warning
-_unused = undefined