realign guard

This commit is contained in:
l.mai
2007-06-04 18:20:45 +00:00
parent 68a63688ad
commit 1c609288dd

View File

@@ -194,7 +194,7 @@ view i s
-- if it is visible, it is just raised
= s { current = x, visible = current s : L.delete x (visible s) }
| Just x <- L.find ((i==).tag) (hidden s)
| Just x <- L.find ((i==).tag) (hidden s)
-- if it was hidden, it is raised on the xine screen currently used
= s { current = Screen x (screen (current s))
, hidden = workspace (current s) : L.delete x (hidden s) }