[commit: ghc] master: Typos in [CPR for sum types] (781a167)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/781a1675adbb2c84fc81bad538fcc711756cd78e/ghc

>---------------------------------------------------------------

commit 781a1675adbb2c84fc81bad538fcc711756cd78e
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Tue Nov 19 08:14:54 2013 +0000

    Typos in [CPR for sum types]


>---------------------------------------------------------------

781a1675adbb2c84fc81bad538fcc711756cd78e
 compiler/stranal/DmdAnal.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/stranal/DmdAnal.lhs b/compiler/stranal/DmdAnal.lhs
index 5d34cae..99eb7ac 100644
--- a/compiler/stranal/DmdAnal.lhs
+++ b/compiler/stranal/DmdAnal.lhs
@@ -825,8 +825,8 @@ which messed it all up.  Example
 If we w/w this we get
    let j' = \x. ....
    in case y of
-        True -> case j False of { (# a #) -> Just a }
-        True -> case j True of { (# a #) -> Just a }
+        True  -> case j' False of { (# a #) -> Just a }
+        False -> case j' True of { (# a #) -> Just a }
 Notice that j' is not a let-no-escape any more.
 
 However this means in turn that the *enclosing* function