twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-13 11:05:44 -07:00
Code Issues Packages Projects Releases Wiki Activity

StackSet.hs: (differentiate): 'Texture' doesn't mean anything to me; replace with a more descriptive comment.

Browse Source
This commit is contained in:
Brent Yorgey
2007-10-22 19:13:33 +00:00
parent 33e14e7ba7
commit 92d58ae0a8
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
StackSet.hs
View File

@@ -325,8 +325,9 @@ integrate' :: Maybe (Stack a) -> [a]
integrate' = maybe [] integrate 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 :: [a] -> Maybe (Stack a)
differentiate [] = Nothing differentiate [] = Nothing
differentiate (x:xs) = Just $ Stack x [] xs differentiate (x:xs) = Just $ Stack x [] xs