twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-05-19 08:30:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

Only watch mtime for .hs, .lhs, .hsc for ~/.xmonad/lib

Browse Source 
Previously xmonad would force a recompile due to the object files being too
new, so only look at files which may contain haskell code.
This commit is contained in:
Adam Vogt 2009-05-03 23:54:15 +00:00
parent ccb6ff92f2
commit 8d8cc8bcd8
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
XMonad/Core.hs
View File

@ -412,7 +412,7 @@ recompile force = io $ do
err = base ++ ".errors" err = base ++ ".errors"
src = base ++ ".hs" src = base ++ ".hs"
lib = dir </> "lib" lib = dir </> "lib"
libTs <- mapM getModTime =<< allFiles lib libTs <- mapM getModTime . Prelude.filter isSource =<< allFiles lib
srcT <- getModTime src srcT <- getModTime src
binT <- getModTime bin binT <- getModTime bin
if (force || srcT > binT || any (binT<) libTs) if (force || srcT > binT || any (binT<) libTs)
@ -440,6 +440,7 @@ recompile force = io $ do
return (status == ExitSuccess) return (status == ExitSuccess)
else return True else return True
where getModTime f = catch (Just <$> getModificationTime f) (const $ return Nothing) where getModTime f = catch (Just <$> getModificationTime f) (const $ return Nothing)
isSource = flip elem [".hs",".lhs",".hsc"]
allFiles t = do allFiles t = do
let prep = map (t</>) . Prelude.filter (`notElem` [".",".."]) let prep = map (t</>) . Prelude.filter (`notElem` [".",".."])
cs <- prep <$> catch (getDirectoryContents t) (\_ -> return []) cs <- prep <$> catch (getDirectoryContents t) (\_ -> return [])