summaryrefslogtreecommitdiffstats
path: root/StackSet.hs
diff options
context:
space:
mode:
Diffstat (limited to 'StackSet.hs')
-rw-r--r--StackSet.hs10
1 files changed, 5 insertions, 5 deletions
diff --git a/StackSet.hs b/StackSet.hs
index a7bc376..f0168d1 100644
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -239,12 +239,12 @@ swap a b xs
swap _ _ xs = xs -- do nothing
-{-
+--
-- cycling:
-promote w = w { stacks = M.adjust next (current w) (stacks w) }
- where next [] = []
- next xs = last xs : init xs
--}
+-- promote w = w { stacks = M.adjust next (current w) (stacks w) }
+-- where next [] = []
+-- next xs = last xs : init xs
+--
-- |
elemAfter :: Eq a => a -> [a] -> Maybe a