diff options
| -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 |