Use uniqSetToList rather than eltsUFM
authorIan Lynagh <igloo@earth.li>
Wed, 6 Feb 2008 00:00:43 +0000 (00:00 +0000)
committerIan Lynagh <igloo@earth.li>
Wed, 6 Feb 2008 00:00:43 +0000 (00:00 +0000)
compiler/cmm/PprC.hs

index ec70d04..3f8fe1c 100644 (file)
@@ -788,7 +788,7 @@ is_cish StdCallConv = True
 -- 
 pprTempAndExternDecls :: [CmmBasicBlock] -> (SDoc{-temps-}, SDoc{-externs-})
 pprTempAndExternDecls stmts 
-  = (vcat (map pprTempDecl (eltsUFM temps)), 
+  = (vcat (map pprTempDecl (uniqSetToList temps)), 
      vcat (map (pprExternDecl False{-ToDo-}) (keysFM lbls)))
   where (temps, lbls) = runTE (mapM_ te_BB stmts)