[commit: ghc] master: Expand tabs (6ac7bae)
Simon Peyton Jones
simonpj at microsoft.com
Wed Jan 30 15:34:51 CET 2013
Repository : ssh://darcs.haskell.org//srv/darcs/ghc
On branch : master
http://hackage.haskell.org/trac/ghc/changeset/6ac7bae74c02d8db306ad236d6498dfad8771ee9
>---------------------------------------------------------------
commit 6ac7bae74c02d8db306ad236d6498dfad8771ee9
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date: Wed Jan 30 14:34:06 2013 +0000
Expand tabs
>---------------------------------------------------------------
compiler/basicTypes/Demand.lhs | 8 ++++----
1 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/compiler/basicTypes/Demand.lhs b/compiler/basicTypes/Demand.lhs
index 6e4f6d7..5d78036 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}
More information about the ghc-commits
mailing list