From c3101501a47da48170421a0cb81cb2727a190ce6 Mon Sep 17 00:00:00 2001
From: Jason Creighton <jcreigh@gmail.com>
Date: Sun, 18 Mar 2007 01:55:25 +0100
Subject: replaced "let Just x

darcs-hash:20070318005525-b9aa7-9f42706bf37b46fd853388395c9c495346abcc74.gz
---
 Main.hs | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index d13e7a9..ab6caa3 100644
--- a/Main.hs
+++ b/Main.hs
@@ -336,10 +336,13 @@ view o = do
 	if M.member n ws2sc
 	    then windows $ W.view n
 	    else do 
-		-- This assumes that the current workspace is visible.
-		-- Is that always going to be true?
-		let Just curscreen = M.lookup m ws2sc
-		modify $ \s -> s { wsOnScreen = M.insert n curscreen (M.delete m ws2sc) }
+		sc <- case M.lookup m ws2sc of
+		    Nothing -> do 
+			trace "Current workspace isn't visible! This should never happen!"
+		        -- we don't know what screen to use, just use the first one.
+		        return 0
+		    Just sc -> return sc
+		modify $ \s -> s { wsOnScreen = M.insert n sc (M.filter (/=sc) ws2sc) }
 		windows $ W.view n
 		mapM_ hide (W.index m ws)
 	setTopFocus
-- 
cgit v1.2.3