twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-17 04:43:47 -07:00
Code Issues Packages Projects Releases Wiki Activity

Add an abort function, called for deliberate and intentional errors

Browse Source
This commit is contained in:
Neil Mitchell
2007-05-23 23:32:12 +00:00
parent 6f9998ad27
commit a5aa4b1686
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
StackSet.hs
View File

@@ -146,6 +146,10 @@ data Stack a = Empty
, right :: [a] } -- jokers to the right , right :: [a] } -- jokers to the right
deriving (Show, Read, Eq) deriving (Show, Read, Eq)
-- this function indicates to catch that an error is expected
abort x = error x
-- --------------------------------------------------------------------- -- ---------------------------------------------------------------------
-- Construction -- Construction
@@ -157,7 +161,7 @@ data Stack a = Empty
-- --
new :: (Integral i, Integral s) => i -> s -> StackSet i a s new :: (Integral i, Integral s) => i -> s -> StackSet i a s
new n m | n > 0 && m > 0 = StackSet n cur visi unseen new n m | n > 0 && m > 0 = StackSet n cur visi unseen
| otherwise = error "non-positive arguments to StackSet.new" | otherwise = abort "non-positive arguments to StackSet.new"
where (seen,unseen) = L.genericSplitAt m $ Workspace 0 Empty : [ Workspace i Empty | i <- [1 ..n-1]] where (seen,unseen) = L.genericSplitAt m $ Workspace 0 Empty : [ Workspace i Empty | i <- [1 ..n-1]]
(cur:visi) = [ Screen i s | (i,s) <- zip seen [0..] ] (cur:visi) = [ Screen i s | (i,s) <- zip seen [0..] ]
@@ -187,7 +191,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 = error "Inconsistent StackSet: workspace not found" | otherwise = abort "Inconsistent StackSet: workspace not found"
-- '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'