diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-17 21:41:14 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-17 21:41:14 +0200 |
| commit | 2abea3a731f8bde30ddd618db4764ec85eeefcaa (patch) | |
| tree | 54a1c10dafb360ec78a0e62ddc168eb66bc99475 | |
| parent | 7f9e8fa6d9c36cf42430e5239fbdb8bcfdec3e00 (diff) | |
| download | metatile-2abea3a731f8bde30ddd618db4764ec85eeefcaa.tar metatile-2abea3a731f8bde30ddd618db4764ec85eeefcaa.zip | |
Haddockify delete' comments
darcs-hash:20070917194114-a5988-bb829dcc22fc269dd9eee5b436ad2ec0c1796bfd
| -rw-r--r-- | StackSet.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/StackSet.hs b/StackSet.hs index 05f8ff2..a2f4b31 100644 --- a/StackSet.hs +++ b/StackSet.hs @@ -455,7 +455,7 @@ insertUp a s = if member a s then s else insert delete :: (Ord a, Eq s) => a -> StackSet i a s sd -> StackSet i a s sd delete w = sink w . delete' w --- only temporarily remove the window from the stack, thereby not destroying special +-- | Only temporarily remove the window from the stack, thereby not destroying special -- information saved in the Stackset delete' :: (Ord a, Eq s) => a -> StackSet i a s sd -> StackSet i a s sd delete' w s = s { current = removeFromScreen (current s) |