diff options
Diffstat (limited to 'src/Internal/SwapMaster.hs')
| -rw-r--r-- | src/Internal/SwapMaster.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Internal/SwapMaster.hs b/src/Internal/SwapMaster.hs index c73cbd9..e7ade19 100644 --- a/src/Internal/SwapMaster.hs +++ b/src/Internal/SwapMaster.hs @@ -9,12 +9,12 @@ import XMonad (Window, ExtensionClass(..), X(..), windows, windowset) import Control.Monad (void) import Control.Monad.Trans (lift) import Data.Maybe (fromMaybe) -import Control.Monad.State (get) +import Control.Monad.State (gets) import qualified XMonad.Util.ExtensibleState as XS -data LastWindow = LastWindow { - lastWindow :: (Maybe Window) +newtype LastWindow = LastWindow { + lastWindow :: Maybe Window } deriving (Show, Read) instance ExtensionClass LastWindow where @@ -25,7 +25,7 @@ hoist = MaybeT . return swapMaster :: X () swapMaster = void $ runMaybeT $ do - ss <- lift $ windowset <$> get + ss <- gets windowset focused <- hoist $ W.peek ss master <- hoist $ getMaster ss |