From bb6fc78eaafe0077d9d9d586ae0c9f3b1dbaffeb Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Mon, 30 Apr 2012 17:42:22 +0200 Subject: Correctly identify source files in ~/.lib (David McLean) Ignore-this: efc21bae061768ad15a36a5f7b6aeb87 darcs-hash:20120430154222-1499c-c80ecae7b87b5115723362ad3c5698e875608a66.gz --- XMonad/Core.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'XMonad') 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 []) -- cgit v1.2.3