diff options
| author | Devin Mullins <me@twifkak.com> | 2007-10-07 20:59:15 +0200 |
|---|---|---|
| committer | Devin Mullins <me@twifkak.com> | 2007-10-07 20:59:15 +0200 |
| commit | d9f831e606e447043239ae4d60e931405132ba37 (patch) | |
| tree | 0f2c9680d65629c8dcbe80e9125519e30d9405f6 /WorkspaceDir.hs | |
| parent | 6f391057b024585fb4d9489c3a412a59f4bab275 (diff) | |
| download | XMonadContrib-d9f831e606e447043239ae4d60e931405132ba37.tar.gz XMonadContrib-d9f831e606e447043239ae4d60e931405132ba37.tar.xz XMonadContrib-d9f831e606e447043239ae4d60e931405132ba37.zip | |
Maybe? What Maybe? (rollback earlier dmenu change)
darcs-hash:20071007185915-78224-5dc94fbbbc960a853654321317e2b8ba54d8be2a.gz
Diffstat (limited to 'WorkspaceDir.hs')
| -rw-r--r-- | WorkspaceDir.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/WorkspaceDir.hs b/WorkspaceDir.hs index 32f548d..97e5f94 100644 --- a/WorkspaceDir.hs +++ b/WorkspaceDir.hs @@ -68,10 +68,8 @@ workspaceDir :: LayoutClass l a => String -> l a workspaceDir s = ModifiedLayout (WorkspaceDir s) scd :: String -> X () -scd x = do x' <- io (runProcessWithInput "bash" [] ("echo -n " ++ x) `catch` \_ -> return Nothing) - case x' of - Just newDir -> catchIO $ setCurrentDirectory newDir - Nothing -> return () +scd x = do x' <- io (runProcessWithInput "bash" [] ("echo -n " ++ x) `catch` \_ -> return x) + catchIO $ setCurrentDirectory x' changeDir :: XPConfig -> X () changeDir c = directoryPrompt c "Set working directory: " (sendMessage . Chdir) |