From c57871b836ac7e786d401c0a653a19a5e1e1cc42 Mon Sep 17 00:00:00 2001 From: Alec Berryman Date: Sun, 1 Apr 2007 16:45:39 +0200 Subject: Remove trailing spaces, no content changed darcs-hash:20070401144539-39448-1903870c5ef75cc918a8ea3153c5b154feb4e644.gz --- StackSet.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'StackSet.hs') diff --git a/StackSet.hs b/StackSet.hs index 2fc8020..bcea8c8 100644 --- a/StackSet.hs +++ b/StackSet.hs @@ -3,7 +3,7 @@ -- Module : StackSet -- Copyright : (c) Don Stewart 2007 -- License : BSD3-style (see LICENSE) --- +-- -- Maintainer : dons@cse.unsw.edu.au -- Stability : stable -- Portability : portable, needs GHC 6.6 @@ -89,7 +89,7 @@ fromList (o,xs) = view o $ foldr (\(i,ys) s -> toList :: StackSet a -> (Int,[[a]]) toList x = (current x, map snd $ M.toList (stacks x)) --- | Push. Insert an element onto the top of the current stack. +-- | Push. Insert an element onto the top of the current stack. -- If the element is already in the current stack, it is moved to the top. -- If the element is managed on another stack, it is removed from that -- stack first. -- cgit v1.2.3