From 632e77262811043f9c1634e0f0c4b2fcc8bfb1dc Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 24 Oct 2001 08:35:51 +0000
Subject: [PATCH] [project @ 2001-10-24 08:35:51 by simonpj] Cosmetica

---
 ghc/compiler/coreSyn/CoreUtils.lhs |    2 +-
 ghc/compiler/coreSyn/PprCore.lhs   |    2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/coreSyn/CoreUtils.lhs b/ghc/compiler/coreSyn/CoreUtils.lhs
index 21bb2bf..5af017d 100644
--- a/ghc/compiler/coreSyn/CoreUtils.lhs
+++ b/ghc/compiler/coreSyn/CoreUtils.lhs
@@ -492,7 +492,7 @@ exprOkForSpeculation other_expr
 	  other -> False
 	
     go (App f a) n_args args_ok 
-	| not (isRuntimeArg a) = go f n_args 	  args_ok
+	| not (isRuntimeArg a) = go f n_args 	   args_ok
 	| otherwise            = go f (n_args + 1) (exprOkForSpeculation a && args_ok)
 
     go other n_args args_ok = False
diff --git a/ghc/compiler/coreSyn/PprCore.lhs b/ghc/compiler/coreSyn/PprCore.lhs
index cdde0eb..f19c28c 100644
--- a/ghc/compiler/coreSyn/PprCore.lhs
+++ b/ghc/compiler/coreSyn/PprCore.lhs
@@ -347,8 +347,8 @@ ppIdInfo b info
             ppTyGenInfo g,
 	    ppWorkerInfo (workerInfo info),
 	    ppStrictnessInfo s,
-	    ppr (newStrictnessInfo info),
             ppCprInfo m,
+	    ppr (newStrictnessInfo info),
 	    pprCoreRules b p
 	-- Inline pragma, occ, demand, lbvar info
 	-- printed out with all binders (when debug is on); 
-- 
1.7.10.4