From 40eeb681ff25acf4d902dd706fc3eaab37ac7f1c Mon Sep 17 00:00:00 2001
From: Matthijs Kooijman <matthijs@stdin.nl>
Date: Mon, 14 Dec 2009 15:04:17 +0100
Subject: [PATCH] Fix a typo in the run function.

---
 matthijs/introduction.lhs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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}
 
-- 
2.30.2