handle exceptions when cleaning

2011-09-02 07:51:12 +02:00 · 2011-09-02 07:51:12 +02:00 · 611bb89e83
commit 611bb89e83
parent cb0de49010
1 changed files with 2 additions and 2 deletions
--- a/yesod/Build.hs
+++ b/yesod/Build.hs
@ -81,8 +81,8 @@ copyToDev file = do

 cleanDev :: IO ()
 cleanDev = do
-  exists <- doesDirectoryExist develSrcDir
-  when exists (removeDirectoryRecursive develSrcDir)
+  try' $ removeDirectoryRecursive develSrcDir
+  return ()

 try' :: IO x -> IO (Either SomeException x)
 try' = try