diff options
author | Michal Minar <mic.liamg@gmail.com> | 2015-11-01 19:47:49 +0100 |
---|---|---|
committer | Michal Minar <mic.liamg@gmail.com> | 2015-11-17 18:14:11 +0100 |
commit | ac1ef8f98cd4d519737a9d670c44418aa81d1a7a (patch) | |
tree | 18b3c9b96714752f4161c0ee294bac618db47b92 | |
parent | f3bbff7fb2e7bd1e663109004739aa439e129380 (diff) | |
download | xminad-ac1ef8f98cd4d519737a9d670c44418aa81d1a7a.tar.gz xminad-ac1ef8f98cd4d519737a9d670c44418aa81d1a7a.tar.xz xminad-ac1ef8f98cd4d519737a9d670c44418aa81d1a7a.zip |
cosmetic changes
Signed-off-by: Michal Minar <mic.liamg@gmail.com>
-rw-r--r-- | src/XMonad/Local/Actions.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/XMonad/Local/Actions.hs b/src/XMonad/Local/Actions.hs index c667179..5200ce6 100644 --- a/src/XMonad/Local/Actions.hs +++ b/src/XMonad/Local/Actions.hs @@ -26,7 +26,7 @@ spawnShellIn dir command = do spawn $ cmd' t where run (Just c) = " -e '" ++ c ++ "'" - run Nothing = "" + run Nothing = "" cmd' t | dir == "" = t ++ run command | otherwise = "cd " ++ dir ++ " && " ++ t ++ run command @@ -43,7 +43,7 @@ mateRun :: X () mateRun = withDisplay $ \dpy -> do rw <- asks theRoot mate_panel <- getAtom "_MATE_PANEL_ACTION" - panel_run <- getAtom "_MATE_PANEL_ACTION_RUN_DIALOG" + panel_run <- getAtom "_MATE_PANEL_ACTION_RUN_DIALOG" io $ allocaXEvent $ \e -> do setEventType e clientMessage |