From cc732daf8e9983890a79f1153010b278a8f0a6f2 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 6 Feb 2008 00:00:43 +0000 Subject: [PATCH] Use uniqSetToList rather than eltsUFM --- compiler/cmm/PprC.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs index ec70d04..3f8fe1c 100644 --- a/compiler/cmm/PprC.hs +++ b/compiler/cmm/PprC.hs @@ -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) -- 1.7.10.4