diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-03-28 23:27:45 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-10-09 12:19:45 -0600 |
| commit | c75c5f8254181242a96f3f6652a53cc70f40b13e (patch) | |
| tree | a4df88d0c9d98d3ba7513bc6c679c80a96c112e0 /src/Internal/SwapMaster.hs | |
| parent | 4b448be1c8c4cc1d973561f94b4527962d09bdd7 (diff) | |
| download | rde-c75c5f8254181242a96f3f6652a53cc70f40b13e.tar.gz rde-c75c5f8254181242a96f3f6652a53cc70f40b13e.tar.bz2 rde-c75c5f8254181242a96f3f6652a53cc70f40b13e.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 |