Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/c1a30d7f493db9e6c483c169886691acf91d5313

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

commit c1a30d7f493db9e6c483c169886691acf91d5313
Author: Ian Lynagh <[email protected]>
Date:   Sun Dec 18 20:55:36 2011 +0000

    Fix typo

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

 compiler/deSugar/DsUtils.lhs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/compiler/deSugar/DsUtils.lhs b/compiler/deSugar/DsUtils.lhs
index 626b6ee..5473edf 100644
--- a/compiler/deSugar/DsUtils.lhs
+++ b/compiler/deSugar/DsUtils.lhs
@@ -558,7 +558,7 @@ we are going to make EITHER
 
 EITHER (A)   v = e   (where v is fresh)
              x = case v of p -> x
-             y = case v of p -> x
+             y = case v of p -> y
 
 OR (B)       t = case e of p -> (x,y)
              x = case t of (x,_) -> x



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to