X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FRegSpillClean.hs;fp=compiler%2FnativeGen%2FRegSpillClean.hs;h=9f80e4772d216a2893dc1ab6df67fecf4f8a8552;hb=5c77b95cc79f7cce8dd15bc639a3ed58664444a4;hp=47ded0846ec30caa79cbc6428894308b0e4f86d4;hpb=1241c26f3552a2037263769e5ef7fa68d9f3be36;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegSpillClean.hs b/compiler/nativeGen/RegSpillClean.hs
index 47ded08..9f80e47 100644
--- a/compiler/nativeGen/RegSpillClean.hs
+++ b/compiler/nativeGen/RegSpillClean.hs
@@ -42,7 +42,7 @@ import Outputable
 import Util
 
 import Data.Maybe
-import Data.List        ( nub )
+import Data.List        ( find, nub )
 
 -- | Clean out unneeded spill/reloads from this top level thing.
 cleanSpills :: LiveCmmTop -> LiveCmmTop