diff options
| author | Brent Yorgey <byorgey@gmail.com> | 2007-10-22 21:13:33 +0200 |
|---|---|---|
| committer | Brent Yorgey <byorgey@gmail.com> | 2007-10-22 21:13:33 +0200 |
| commit | 247e5eaa2acfeefb0be728f8a767aa878c244576 (patch) | |
| tree | 146f26fc973f2e23a0dc3b9aacbba1adadcac34e | |
| parent | 1ca92abeab628df1275f0f6175b4750a9bcd1f07 (diff) | |
| download | xmonad-247e5eaa2acfeefb0be728f8a767aa878c244576.tar.gz xmonad-247e5eaa2acfeefb0be728f8a767aa878c244576.tar.xz xmonad-247e5eaa2acfeefb0be728f8a767aa878c244576.zip | |
StackSet.hs: (differentiate): 'Texture' doesn't mean anything to me; replace with a more descriptive comment.
darcs-hash:20071022191333-bd4d7-e2189eb1f8c97ee294435d37f0fb0e73081c3e35.gz
| -rw-r--r-- | StackSet.hs | 7 |
1 files changed, 4 insertions, 3 deletions
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 |