diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-12 16:32:48 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-12 16:32:48 +0200 |
commit | 6153458ce51cadbaf31fbc3fcbc4ca14a76772e8 (patch) | |
tree | 7f1397720b2f14e0e771b32f3c535f80f6fe302e /StackSet.hs | |
parent | 3a70c83727fced1dd7363e8b9fa2c47c51e4fadb (diff) | |
download | xmonad-6153458ce51cadbaf31fbc3fcbc4ca14a76772e8.tar.gz xmonad-6153458ce51cadbaf31fbc3fcbc4ca14a76772e8.tar.xz xmonad-6153458ce51cadbaf31fbc3fcbc4ca14a76772e8.zip |
Make 'view' a total function
darcs-hash:20070612143248-a5988-1e99f26ec88e7f8ca791e215bb81ec5a17c7bb58.gz
Diffstat (limited to 'StackSet.hs')
-rw-r--r-- | StackSet.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/StackSet.hs b/StackSet.hs index a226573..99684ad 100644 --- a/StackSet.hs +++ b/StackSet.hs @@ -214,7 +214,7 @@ view i s = s { current = Screen x (screen (current 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 -- workspace tags defined in 'new' |