yesod devel handles Vim better

2012-04-02 18:33:14 +03:00 · 2012-04-02 18:33:14 +03:00 · 94a844f9fe
commit 94a844f9fe
parent 1b985796ec
1 changed files with 4 additions and 2 deletions
--- a/yesod/Devel.hs
+++ b/yesod/Devel.hs
@ -121,8 +121,10 @@ getFileList = do
    deps <- getDeps
    let files' = files ++ map fst (Map.toList deps)
    fmap Map.fromList $ flip mapM files' $ \f -> do
-        fs <- getFileStatus f
-        return (f, modificationTime fs)
+        efs <- Ex.try $ getFileStatus f
+        return $ case efs of
+            Left (_ :: Ex.SomeException) -> (f, 0)
+            Right fs -> (f, modificationTime fs)

 watchForChanges :: FileList -> IO ()
 watchForChanges list = do