twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-15 12:03:47 -07:00
Code Issues Packages Projects Releases Wiki Activity

Correctly identify source files in ~/.lib (David McLean)

Browse Source
This commit is contained in:
Adam Vogt
2012-04-30 15:42:22 +00:00
parent 108c2280ef
commit 6c51745122
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Core.hs
View File

@@ -477,7 +477,7 @@ recompile force = io $ do
return (status == ExitSuccess) return (status == ExitSuccess)
else return True else return True
where getModTime f = catch (Just <$> getModificationTime f) (\(SomeException _) -> return Nothing) where getModTime f = catch (Just <$> getModificationTime f) (\(SomeException _) -> return Nothing)
isSource = flip elem [".hs",".lhs",".hsc"] isSource = flip elem [".hs",".lhs",".hsc"] . takeExtension
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) (\(SomeException _) -> return []) cs <- prep <$> catch (getDirectoryContents t) (\(SomeException _) -> return [])