From 94a844f9feb64261e3f937659e8532cddda81cda Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 2 Apr 2012 18:33:14 +0300
Subject: [PATCH] yesod devel handles Vim better

---
 yesod/Devel.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/yesod/Devel.hs b/yesod/Devel.hs
index 729494ef..457c96f1 100644
--- 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