From 7634d8d503952130be26a1be3d4090dc923b212a Mon Sep 17 00:00:00 2001
From: "Neil Mitchell http://www.cs.york.ac.uk/~ndm/"
 <gentoo-haskell@vcs.intern>
Date: Tue, 8 May 2007 14:49:49 +0200
Subject: Work around the fact that Yhc gets defaulting a bit wrong

darcs-hash:20070508124949-fbc8d-1d778c43323434b6f286af1505b2c0489eb09ac2.gz
---
 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)
 
-- 
cgit v1.2.3