X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=matthijs%2Fintroduction.lhs;h=2fb28466b0e51fc835ccb41c4735c970ef2fbb93;hb=40eeb681ff25acf4d902dd706fc3eaab37ac7f1c;hp=6a55aa26a0b386dc53c280f83dd99124027a732b;hpb=cd79bd441561d9000853d2a8e00f325789014e16;p=matthijs%2Fmaster-project%2Ffinal-presentation.git

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}