From: Matthijs Kooijman <matthijs@stdin.nl>
Date: Mon, 14 Dec 2009 14:04:17 +0000 (+0100)
Subject: Fix a typo in the run function.
X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fmaster-project%2Ffinal-presentation.git;a=commitdiff_plain;h=40eeb681ff25acf4d902dd706fc3eaab37ac7f1c

Fix a typo in the run function.
---

diff --git a/matthijs/introduction.lhs b/matthijs/introduction.lhs
index 6a55aa2..2fb2846 100644
--- a/matthijs/introduction.lhs
+++ b/matthijs/introduction.lhs
@@ -180,7 +180,7 @@ in (State sum, sum)
 
   \begin{block}{Recursive run function}
     run f (i:is) s = let
-      (o, s') = f i s
+      (s', o) = f i s
     in o : (run f is s')
   \end{block}