From cd75c27ff2e3b20d3adf8dcc1de9894873314c04 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Mon, 21 May 2007 06:21:18 +0200 Subject: Fixes for windowset -> workspace rename darcs-hash:20070521042118-a5988-a2f979585ee35d3905dbcf6244c22af67489caa6.gz --- Mosaic.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Mosaic.hs') diff --git a/Mosaic.hs b/Mosaic.hs index 05bd903..f00825e 100644 --- a/Mosaic.hs +++ b/Mosaic.hs @@ -204,5 +204,5 @@ unName :: NamedWindow -> Window unName (NW _ w) = w withNamedWindow :: (NamedWindow -> X ()) -> X () -withNamedWindow f = do ws <- gets workspace +withNamedWindow f = do ws <- gets windowset whenJust (W.peek ws) $ \w -> getName w >>= f -- cgit v1.2.3