diff options
| author | Neil Mitchell http://www.cs.york.ac.uk/~ndm/ <none> | 2007-05-08 14:49:49 +0200 |
|---|---|---|
| committer | Neil Mitchell http://www.cs.york.ac.uk/~ndm/ <none> | 2007-05-08 14:49:49 +0200 |
| commit | 4aa9bffb07706b029ff68dc34216424a0554d3c3 (patch) | |
| tree | 9c65b094ca185022f3bdc41b5190c613ed459c57 | |
| parent | ac7fca084e4c691aff4ced1ea91b121d714cee74 (diff) | |
| download | metatile-4aa9bffb07706b029ff68dc34216424a0554d3c3.tar metatile-4aa9bffb07706b029ff68dc34216424a0554d3c3.zip | |
Work around the fact that Yhc gets defaulting a bit wrong
darcs-hash:20070508124949-fbc8d-1d778c43323434b6f286af1505b2c0489eb09ac2
| -rw-r--r-- | StackSet.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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) |