twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-11 02:02:11 -07:00
Code Issues Packages Projects Releases Wiki Activity

Rename safeIO to catchIO

Browse Source
This commit is contained in:
Spencer Janssen
2007-06-11 16:20:28 +00:00
parent 1a90e87933
commit e8e8457e4c
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
WorkspaceDir.hs
View File

@@ -27,7 +27,7 @@ workspaceDir wd l = l { doLayout = \r x -> scd wd >> doLayout l r x
scd :: String -> X () scd :: String -> X ()
scd x = do x' <- io (runProcessWithInput "bash" [] ("echo -n " ++ x) `catch` \_ -> return x) scd x = do x' <- io (runProcessWithInput "bash" [] ("echo -n " ++ x) `catch` \_ -> return x)
safeIO $ setCurrentDirectory x' catchIO $ setCurrentDirectory x'
changeDir :: [String] -> X () changeDir :: [String] -> X ()
changeDir dirs = do thisd <- io getCurrentDirectory changeDir dirs = do thisd <- io getCurrentDirectory