Forgot to import Data.List.find

[ghc-hetmet.git] / compiler / nativeGen / RegSpillClean.hs

diff --git a/compiler/nativeGen/RegSpillClean.hs b/compiler/nativeGen/RegSpillClean.hs
index 47ded08..9f80e47 100644 (file)
--- 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