diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2012-04-30 17:42:22 +0200 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2012-04-30 17:42:22 +0200 |
| commit | f47973690112c0f38c51dfdaf3d4389e2451eacb (patch) | |
| tree | b64637f6abecaeeb5ec8a8ecc829f3799cc392ee | |
| parent | 04863aa7454dbfd24b1fa9e65b2c4f30b4f98d41 (diff) | |
| download | metatile-f47973690112c0f38c51dfdaf3d4389e2451eacb.tar metatile-f47973690112c0f38c51dfdaf3d4389e2451eacb.zip | |
Correctly identify source files in ~/.lib (David McLean)
Ignore-this: efc21bae061768ad15a36a5f7b6aeb87
darcs-hash:20120430154222-1499c-c80ecae7b87b5115723362ad3c5698e875608a66
| -rw-r--r-- | XMonad/Core.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs index b3593a0..cc3bf3e 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -477,7 +477,7 @@ recompile force = io $ do return (status == ExitSuccess) else return True 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 let prep = map (t</>) . Prelude.filter (`notElem` [".",".."]) cs <- prep <$> catch (getDirectoryContents t) (\(SomeException _) -> return []) |