diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-03-28 23:27:45 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-03-28 23:27:45 -0600 |
| commit | 685d67d19d2e94fc94ed7334e5e7ab19454426d7 (patch) | |
| tree | a4df88d0c9d98d3ba7513bc6c679c80a96c112e0 /src/Internal/SwapMaster.hs | |
| parent | efe9e1a5f8474a865e2762d3a795dbe43763985b (diff) | |
| download | rde-685d67d19d2e94fc94ed7334e5e7ab19454426d7.tar.gz rde-685d67d19d2e94fc94ed7334e5e7ab19454426d7.tar.bz2 rde-685d67d19d2e94fc94ed7334e5e7ab19454426d7.zip | |
Fix things that Hlint is complaining about.
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 |