From 108200581a0d3b898254bf278f959178587bd856 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 8 Dec 2018 03:15:55 +0000 Subject: Compiling only .[l]hs[c] files Should take care of issue #371 --- src/Xmobar/App/Compile.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Xmobar/App/Compile.hs') diff --git a/src/Xmobar/App/Compile.hs b/src/Xmobar/App/Compile.hs index 6c136dc..0a763b4 100644 --- a/src/Xmobar/App/Compile.hs +++ b/src/Xmobar/App/Compile.hs @@ -17,7 +17,7 @@ ------------------------------------------------------------------------------ -module Xmobar.App.Compile(recompile, xmessage) where +module Xmobar.App.Compile(recompile, trace, xmessage) where import Control.Monad.IO.Class import Control.Monad.Fix (fix) @@ -70,12 +70,12 @@ shouldRecompile verb src bin lib = do binT <- getModTime bin if any (binT <) (srcT : libTs) then do - trace verb "Xmobar doing recompile because some files have changed." + trace verb "Xmobar recompiling because some files have changed." return True else do trace verb $ "Xmobar skipping recompile because it is not forced " ++ "(e.g. via --recompile), and not any *.hs / *.lhs / *.hsc" - ++ "files in lib/ have been changed." + ++ " files in lib/ have been changed." return False where isSource = flip elem [".hs",".lhs",".hsc"] . takeExtension allFiles t = do -- cgit v1.2.3