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

Make 'view' a total function

Browse Source
This commit is contained in:
Spencer Janssen
2007-06-12 14:32:48 +00:00
parent 7158a58792
commit 00e1038d71
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
StackSet.hs
View File

@@ -214,7 +214,7 @@ view i s
= s { current = Screen x (screen (current s)) = s { current = Screen x (screen (current s))
, hidden = workspace (current s) : L.delete x (hidden s) } , hidden = workspace (current s) : L.delete x (hidden s) }
| otherwise = abort "Inconsistent StackSet: workspace not found" | otherwise = s
-- 'Catch'ing this might be hard. Relies on monotonically increasing -- 'Catch'ing this might be hard. Relies on monotonically increasing
-- workspace tags defined in 'new' -- workspace tags defined in 'new'