diff options
| -rw-r--r-- | src/Rahm/Desktop/Keys/Wml.hs | 6 | ||||
| -rw-r--r-- | src/Rahm/Desktop/Theater.hs | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/src/Rahm/Desktop/Keys/Wml.hs b/src/Rahm/Desktop/Keys/Wml.hs index 34bbdff..a46bbac 100644 --- a/src/Rahm/Desktop/Keys/Wml.hs +++ b/src/Rahm/Desktop/Keys/Wml.hs @@ -113,7 +113,7 @@ import Rahm.Desktop.XMobarLog.PendingBuffer ( addStringToPendingBuffer, setPendingBuffer, ) -import System.Exit (ExitCode (..), exitWith) +import System.Exit (ExitCode (..), exitWith, exitSuccess) import Text.Printf (printf) import XMonad ( Default (def), @@ -223,7 +223,7 @@ blackHoleWorkspace = Workspace { moveLocationToWorkspaceFn = mapM_ killWindow . locationWindow, gotoWorkspaceFn = - confirmPrompt def "Do you want to exit xmonad" $ io (exitWith ExitSuccess), + confirmPrompt def "Do you want to exit xmonad" $ io exitSuccess, workspaceName = Nothing, extraWorkspaceData = () } @@ -399,7 +399,7 @@ readNextWorkspace = withWindowSet $ \ws -> return $ do win <- locationWindow =<< head loc winLocation <- W.findWindow ws win - (justWorkspaceWithPreferredWindow win . W.tag) <$> W.getLocationWorkspace winLocation + justWorkspaceWithPreferredWindow win . W.tag <$> W.getLocationWorkspace winLocation (_, _, "~") -> justWorkspace . accompaningWorkspace <$> readNextWorkspaceName (_, _, " ") -> diff --git a/src/Rahm/Desktop/Theater.hs b/src/Rahm/Desktop/Theater.hs index 59928a2..665f6f1 100644 --- a/src/Rahm/Desktop/Theater.hs +++ b/src/Rahm/Desktop/Theater.hs @@ -84,7 +84,7 @@ saveTheater :: TheaterName -> X.WindowSet -> X () saveTheater name ws = do XS.modify $ \(Theaters cur map) -> Theaters cur $ do - if isStackSetEmpty "*" ws && not (name == cur) + if isStackSetEmpty "*" ws && name /= cur then Map.delete name map else Map.insert name (Theater $ unboxLayout ws) map where |