diff options
| author | Josh Rahm <rahm@google.com> | 2022-11-23 12:08:15 -0700 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2022-11-23 12:08:15 -0700 |
| commit | e91951d76a25de8335edc26afd3f1905e2f05733 (patch) | |
| tree | 42b7a3f1a96d45f6e4a4a458376648b91fb296f6 /src/Rahm | |
| parent | 01373f3e8b007ff6e281f1932611b164f8fe3ab7 (diff) | |
| download | rde-e91951d76a25de8335edc26afd3f1905e2f05733.tar.gz rde-e91951d76a25de8335edc26afd3f1905e2f05733.tar.bz2 rde-e91951d76a25de8335edc26afd3f1905e2f05733.zip | |
address a couple hlint issues.
Diffstat (limited to 'src/Rahm')
| -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 |