summaryrefslogtreecommitdiff
path: root/compiler/deSugar/DsUtils.lhs
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2011-12-18 20:55:36 +0000
committerIan Lynagh <igloo@earth.li>2011-12-19 15:57:21 +0000
commitc1a30d7f493db9e6c483c169886691acf91d5313 (patch)
tree2923b9e260040bb28fa3388bf6c4b8df464b0842 /compiler/deSugar/DsUtils.lhs
parentf542da48a7c7bdc8c7f116cfbf3db91d7d719196 (diff)
downloadhaskell-c1a30d7f493db9e6c483c169886691acf91d5313.tar.gz
Fix typo
Diffstat (limited to 'compiler/deSugar/DsUtils.lhs')
-rw-r--r--compiler/deSugar/DsUtils.lhs2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/deSugar/DsUtils.lhs b/compiler/deSugar/DsUtils.lhs
index 626b6ee795..5473edf216 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