diff options
Diffstat (limited to '')
-rw-r--r-- | Mosaic.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |