From 9f826eef5b1a302c28dbdce0ffb6456b8a36a2ed Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Sun, 8 Jul 2007 00:38:42 +0200
Subject: Operations.screenWorkspace: return Nothing when the screen does not
 exist

darcs-hash:20070707223842-a5988-7cd70e25326d577a30279c976ae64bce3f70f2df.gz
---
 Operations.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index 0a8bd31..68524f1 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -439,9 +439,9 @@ splitVerticallyBy f = (mirrorRect *** mirrorRect) . splitHorizontallyBy f . mirr
 ------------------------------------------------------------------------
 -- Utilities
 
--- | Return workspace visible on screen 'sc', or 0.
-screenWorkspace :: ScreenId -> X WorkspaceId
-screenWorkspace sc = withWindowSet $ return . fromMaybe 0 . W.lookupWorkspace sc
+-- | Return workspace visible on screen 'sc', or Nothing.
+screenWorkspace :: ScreenId -> X (Maybe WorkspaceId)
+screenWorkspace sc = withWindowSet $ return . W.lookupWorkspace sc
 
 -- | Apply an X operation to the currently focused window, if there is one.
 withFocused :: (Window -> X ()) -> X ()
-- 
cgit v1.2.3