haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

handle exceptions when cleaning

Browse Source
This commit is contained in:
Luite Stegeman 2011-09-02 07:51:12 +02:00
parent cb0de49010
commit 611bb89e83
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod/Build.hs
View File

@ -81,8 +81,8 @@ copyToDev file = do
cleanDev :: IO () cleanDev :: IO ()
cleanDev = do cleanDev = do
exists <- doesDirectoryExist develSrcDir try' $ removeDirectoryRecursive develSrcDir
when exists (removeDirectoryRecursive develSrcDir) return ()
try' :: IO x -> IO (Either SomeException x) try' :: IO x -> IO (Either SomeException x)
try' = try try' = try