From debb8785f27d176f5e6ea8b471c606b07feaae8b Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Thu, 19 Apr 2007 00:47:25 +0200
Subject: tweak loc count to match count_lines script

darcs-hash:20070418224725-9c5c1-e885b1392c8f6aaa1ccd5c5cbcdc9c41b29b6b6a
---
 StackSet.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'StackSet.hs')

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
-- 
cgit v1.2.3