From 247e5eaa2acfeefb0be728f8a767aa878c244576 Mon Sep 17 00:00:00 2001
From: Brent Yorgey <byorgey@gmail.com>
Date: Mon, 22 Oct 2007 21:13:33 +0200
Subject: StackSet.hs: (differentiate): 'Texture' doesn't mean anything to me;
 replace with a more descriptive comment.

darcs-hash:20071022191333-bd4d7-e2189eb1f8c97ee294435d37f0fb0e73081c3e35.gz
---
 StackSet.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'StackSet.hs')

diff --git a/StackSet.hs b/StackSet.hs
index 654ff5d..3b23d59 100644
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -324,9 +324,10 @@ integrate (Stack x l r) = reverse l ++ x : r
 integrate' :: Maybe (Stack a) -> [a]
 integrate' = maybe [] integrate
 
--- |
--- /O(n)/. Texture a list.
---
+-- | 
+-- /O(n)/. Turn a list into a possibly empty stack (i.e., a zipper):
+-- the first element of the list is current, and the rest of the list
+-- is down.
 differentiate :: [a] -> Maybe (Stack a)
 differentiate []     = Nothing
 differentiate (x:xs) = Just $ Stack x [] xs
-- 
cgit v1.2.3