Expand tabs

1 files changed, 4 insertions, 4 deletions

diff --git a/compiler/basicTypes/Demand.lhs b/compiler/basicTypes/Demand.lhs
index 6e4f6d7499..5d780364d5 100644
--- a/compiler/basicTypes/Demand.lhs
+++ b/compiler/basicTypes/Demand.lhs
@@ -695,10 +695,10 @@ However we *don't* want to do this when the argument is not actually
 taken apart in the function at all.  Otherwise we risk decomposing a
 masssive tuple which is barely used.  Example:
 
-	f :: ((Int,Int) -> String) -> (Int,Int) -> a
-	f g pr = error (g pr)
+        f :: ((Int,Int) -> String) -> (Int,Int) -> a
+        f g pr = error (g pr)
 
-	main = print (f fst (1, error "no"))
+        main = print (f fst (1, error "no"))
           
 Here, f does not take 'pr' apart, and it's stupid to do so.
 Imagine that it had millions of fields. This actually happened
@@ -1090,4 +1090,4 @@ instance Binary CPRResult where
               1 -> return RetProd
               2 -> return NoCPR
               _ -> return BotCPR
-\end{code}
\ No newline at end of file
+\end{code}