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

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}