X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FcoreSyn%2FCoreUtils.lhs;fp=compiler%2FcoreSyn%2FCoreUtils.lhs;h=2cf88851015b3f10d3fbc302c929eedf4365f75c;hb=a677bc58308a39b339b22dd27d442fe6a910d41a;hp=3b7f1af3aafb775d8fb5d3282ff8d9162d0c4836;hpb=de2957256a2a00e0344c042b26485f86170376ef;p=ghc-hetmet.git

diff --git a/compiler/coreSyn/CoreUtils.lhs b/compiler/coreSyn/CoreUtils.lhs
index 3b7f1af..2cf8885 100644
--- a/compiler/coreSyn/CoreUtils.lhs
+++ b/compiler/coreSyn/CoreUtils.lhs
@@ -549,7 +549,7 @@ exprIsCheap' good_app other_expr 	-- Applications and variables
     go (Var _) [] = True	-- Just a type application of a variable
 				-- (f t1 t2 t3) counts as WHNF
     go (Var f) args
- 	= case idDetails f of
+        = case idDetails f of
 		RecSelId {}  	    	     -> go_sel args
 		ClassOpId {} 	    	     -> go_sel args
 		PrimOpId op  	    	     -> go_primop op args