X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FsimplCore%2FSAT.lhs;h=73ffba5cb720600fad2fee95bf0645544e1667d6;hp=ca251568a76aba2c29bf50a7221f480403fbca67;hb=e95ee1f718c6915c478005aad8af81705357d6ab;hpb=9bcd95bad83ee937c178970e8b729732e680fe1e

diff --git a/compiler/simplCore/SAT.lhs b/compiler/simplCore/SAT.lhs
index ca25156..73ffba5 100644
--- a/compiler/simplCore/SAT.lhs
+++ b/compiler/simplCore/SAT.lhs
@@ -56,10 +56,8 @@ import Var
 import CoreSyn
 import CoreUtils
 import Type
-import TcType
 import Id
 import Name
-import OccName
 import VarEnv
 import UniqSupply
 import Util
@@ -125,7 +123,7 @@ emptyIdSATInfo :: IdSATInfo
 emptyIdSATInfo = emptyUFM
 
 {-
-pprIdSATInfo id_sat_info = vcat (map pprIdAndSATInfo (fmToList id_sat_info))
+pprIdSATInfo id_sat_info = vcat (map pprIdAndSATInfo (Map.toList id_sat_info))
   where pprIdAndSATInfo (v, sat_info) = hang (ppr v <> colon) 4 (pprSATInfo sat_info)
 -}