bug fix

git-svn-id: https://slps.svn.sourceforge.net/svnroot/slps@730 ab42f6e0-554d-0410-b580-99e487e6eeb2
grammarware · Dec 7, 2009 · 134b92f · 134b92f
1 parent 6bb980b
commit 134b92f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/topics/exercises/b3/foldB.hs b/topics/exercises/b3/foldB.hs
@@ -5,7 +5,7 @@ foldB :: r -> r -> (r -> r -> r -> r) -> B -> r
 foldB r _ _ TrueB = r
 foldB _ r _ FalseB = r
 foldB r1 r2 f (IfB x y z) =
-	f (fold x) (fold y) (fold y)
+	f (fold x) (fold y) (fold z)
 	where fold = foldB r1 r2 f
 
 depth :: B -> Int