diff --git a/yesod/Build.hs b/yesod/Build.hs
index 13414da2..cce4888c 100644
--- 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