From bb778e7d5c38e5d68d350e11c61f0055000724c6 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Mon, 11 Jun 2007 18:20:28 +0200
Subject: Rename safeIO to catchIO

darcs-hash:20070611162028-a5988-1bfa8e8ce1ce27c82b39d05347564ba5a8291e43.gz
---
 WorkspaceDir.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'WorkspaceDir.hs')

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
-- 
cgit v1.2.3