add differentiate function to StackSet to go [a] -> Stack a.

darcs-hash:20070612132853-72aca-01d24069e1f7b66d2dbc9c47e24e4334a45c4346.gz

1 files changed, 8 insertions, 1 deletions

diff --git a/StackSet.hs b/StackSet.hs
index 99684ad..581eb0b 100644
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -75,7 +75,7 @@
 
 module StackSet (
         StackSet(..), Workspace(..), Screen(..), Stack(..), RationalRect(..),
-        new, view, lookupWorkspace, peek, index, integrate, focusUp, focusDown,
+        new, view, lookupWorkspace, peek, index, integrate, differentiate, focusUp, focusDown,
         focusWindow, member, findIndex, insertUp, delete, shift, filter,
         swapMaster, swapUp, swapDown, modify, float, sink -- needed by users
     ) where
@@ -263,6 +263,13 @@ integrate Empty        = []
 integrate (Node x l r) = reverse l ++ x : r
 
 -- |
+-- /O(n)/. Texture a list.
+--
+differentiate :: [a] -> Stack a
+differentiate [] = Empty
+differentiate (x:xs) = Node x [] xs
+
+-- |
 -- /O(n)/. 'filter p s' returns the elements of 's' such that 'p' evaluates to
 -- True.  Order is preserved, and focus moves to the next node to the right (if
 -- necessary).