From: Matthijs Kooijman 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?a=commitdiff_plain;h=40eeb681ff25acf4d902dd706fc3eaab37ac7f1c;p=matthijs%2Fmaster-project%2Ffinal-presentation.git 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}