diff options
| -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) |