From b81991ec2356321dd24b1a8baf5bd30a19cad988 Mon Sep 17 00:00:00 2001 From: Don Stewart Date: Wed, 6 Feb 2008 20:22:32 +0100 Subject: Update to safer initColor api darcs-hash:20080206192232-cba2c-fe41eae586cdcde8b8fa18789440175c4cdd0eaa.gz --- XMonad/Prompt.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'XMonad/Prompt.hs') diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index 8e12f22..f9e3d88 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -463,8 +463,8 @@ drawWin = do wh = widthOfScreen scr ht = height c bw = promptBorderWidth c - bgcolor <- io $ initColor d (bgColor c) - border <- io $ initColor d (borderColor c) + Just bgcolor <- io $ initColor d (bgColor c) + Just border <- io $ initColor d (borderColor c) p <- io $ createPixmap d w wh ht (defaultDepthOfScreen scr) io $ fillDrawable d p gc border bgcolor (fi bw) wh ht @@ -569,8 +569,8 @@ drawComplWin w compl = do scr = defaultScreenOfDisplay d bw = promptBorderWidth c gc = gcon st - bgcolor <- io $ initColor d (bgColor c) - border <- io $ initColor d (borderColor c) + Just bgcolor <- io $ initColor d (bgColor c) + Just border <- io $ initColor d (borderColor c) (_,_,wh,ht,xx,yy) <- getComplWinDim compl -- cgit v1.2.3