From 97141b9a07b32c61ea64d836ed3674e6643838c1 Mon Sep 17 00:00:00 2001
From: Neil Mitchell <http://www.cs.york.ac.uk/~ndm/>
Date: Tue, 8 May 2007 12:49:49 +0000
Subject: [PATCH] Work around the fact that Yhc gets defaulting a bit wrong

---
 StackSet.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/StackSet.hs b/StackSet.hs
index e0210f1..b7419f1 100644
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -62,7 +62,9 @@ empty n m = StackSet { current   = 0
                      , focus     = M.empty
                      , cache     = M.empty }
 
-    where (scrs,wrks)  = unzip $ map (\x -> (fromIntegral x, fromIntegral x)) [0..m-1]
+    where scrs_wrks = unzip $ map (\x -> (fromIntegral x, fromIntegral x)) [0..m-1]
+          scrs = fst scrs_wrks
+          wrks = snd scrs_wrks
           wsScrs2Works = M.fromList (zip scrs wrks)
           wsWorks2Scrs = M.fromList (zip wrks scrs)