Fix typo
authorIan Lynagh <igloo@earth.li>
Sun, 18 Dec 2011 20:55:36 +0000 (20:55 +0000)
committerIan Lynagh <igloo@earth.li>
Mon, 19 Dec 2011 15:57:21 +0000 (15:57 +0000)
compiler/deSugar/DsUtils.lhs

index 626b6ee..5473edf 100644 (file)
@@ -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