From 522c8ebea4546658b4a5ee6727a0cab64fd72e8b Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Thu, 5 Oct 2006 13:07:23 +0000
Subject: [PATCH] Comments and layout

---
 compiler/coreSyn/CoreUtils.lhs  |   15 ++++++++-------
 compiler/simplCore/Simplify.lhs |    1 -
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/compiler/coreSyn/CoreUtils.lhs b/compiler/coreSyn/CoreUtils.lhs
index 637f66a..38e4a11 100644
--- a/compiler/coreSyn/CoreUtils.lhs
+++ b/compiler/coreSyn/CoreUtils.lhs
@@ -633,15 +633,15 @@ exprIsHNF (Var v) 	-- NB: There are no value args at this point
 	-- A worry: what if an Id's unfolding is just itself: 
 	-- then we could get an infinite loop...
 
-exprIsHNF (Lit l)	     = True
-exprIsHNF (Type ty)	     = True	-- Types are honorary Values; 
-					-- we don't mind copying them
-exprIsHNF (Lam b e)  	     = isRuntimeVar b || exprIsHNF e
-exprIsHNF (Note _ e) 	     = exprIsHNF e
-exprIsHNF (Cast e co)        = exprIsHNF e
+exprIsHNF (Lit l)	   = True
+exprIsHNF (Type ty)	   = True	-- Types are honorary Values; 
+			   		-- we don't mind copying them
+exprIsHNF (Lam b e)  	   = isRuntimeVar b || exprIsHNF e
+exprIsHNF (Note _ e) 	   = exprIsHNF e
+exprIsHNF (Cast e co)      = exprIsHNF e
 exprIsHNF (App e (Type _)) = exprIsHNF e
 exprIsHNF (App e a)        = app_is_value e [a]
-exprIsHNF other	     = False
+exprIsHNF other	           = False
 
 -- There is at least one value argument
 app_is_value (Var fun) args
@@ -1240,6 +1240,7 @@ exprIsBig (Lit _)      = False
 exprIsBig (Var v)      = False
 exprIsBig (Type t)     = False
 exprIsBig (App f a)    = exprIsBig f || exprIsBig a
+exprIsBig (Cast e _)   = exprIsBig e	-- Hopefully coercions are not too big!
 exprIsBig other	       = True
 \end{code}
 
diff --git a/compiler/simplCore/Simplify.lhs b/compiler/simplCore/Simplify.lhs
index 4ca68b2..45cda38 100644
--- a/compiler/simplCore/Simplify.lhs
+++ b/compiler/simplCore/Simplify.lhs
@@ -370,7 +370,6 @@ completeNonRecX env is_strict old_bndr new_bndr new_rhs thing_inside
   | otherwise
   = 	-- Make the arguments atomic if necessary, 
 	-- adding suitable bindings
-    -- pprTrace "completeNonRecX" (ppr new_bndr <+> ppr new_rhs) $
     mkAtomicArgsE env is_strict new_rhs		$ \ env new_rhs ->
     completeLazyBind env NotTopLevel
 		     old_bndr new_bndr new_rhs	`thenSmpl` \ (floats, env) ->
-- 
1.7.10.4