Expand tabs
authorSimon Peyton Jones <simonpj@microsoft.com>
Wed, 30 Jan 2013 14:34:06 +0000 (14:34 +0000)
committerSimon Peyton Jones <simonpj@microsoft.com>
Wed, 30 Jan 2013 14:34:06 +0000 (14:34 +0000)
compiler/basicTypes/Demand.lhs

index 6e4f6d7..5d78036 100644 (file)
@@ -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}