diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-11 18:20:28 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-11 18:20:28 +0200 |
| commit | bb778e7d5c38e5d68d350e11c61f0055000724c6 (patch) | |
| tree | 928de9121a4cb3c6dc9c98bb425a27a7a571e449 /WorkspaceDir.hs | |
| parent | 2854dd0b15a46135f2396a3ce886b0b2dbad9aab (diff) | |
| download | XMonadContrib-bb778e7d5c38e5d68d350e11c61f0055000724c6.tar.gz XMonadContrib-bb778e7d5c38e5d68d350e11c61f0055000724c6.tar.xz XMonadContrib-bb778e7d5c38e5d68d350e11c61f0055000724c6.zip | |
Rename safeIO to catchIO
darcs-hash:20070611162028-a5988-1bfa8e8ce1ce27c82b39d05347564ba5a8291e43.gz
Diffstat (limited to '')
| -rw-r--r-- | WorkspaceDir.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/WorkspaceDir.hs b/WorkspaceDir.hs index a109f64..94a07e4 100644 --- a/WorkspaceDir.hs +++ b/WorkspaceDir.hs @@ -27,7 +27,7 @@ workspaceDir wd l = l { doLayout = \r x -> scd wd >> doLayout l r x scd :: String -> X () scd x = do x' <- io (runProcessWithInput "bash" [] ("echo -n " ++ x) `catch` \_ -> return x) - safeIO $ setCurrentDirectory x' + catchIO $ setCurrentDirectory x' changeDir :: [String] -> X () changeDir dirs = do thisd <- io getCurrentDirectory |