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

yesod devel handles Vim better

Browse Source
This commit is contained in:
Michael Snoyman 2012-04-02 18:33:14 +03:00
parent 1b985796ec
commit 94a844f9fe
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod/Devel.hs
View File

@ -121,8 +121,10 @@ getFileList = do
deps <- getDeps deps <- getDeps
let files' = files ++ map fst (Map.toList deps) let files' = files ++ map fst (Map.toList deps)
fmap Map.fromList $ flip mapM files' $ \f -> do fmap Map.fromList $ flip mapM files' $ \f -> do
fs <- getFileStatus f efs <- Ex.try $ getFileStatus f
return (f, modificationTime fs) return $ case efs of
Left (_ :: Ex.SomeException) -> (f, 0)
Right fs -> (f, modificationTime fs)
watchForChanges :: FileList -> IO () watchForChanges :: FileList -> IO ()
watchForChanges list = do watchForChanges list = do