Remove redundant parens

This commit is contained in:
Spencer Janssen 2009-09-18 03:55:47 +00:00
parent cde261ed56
commit 36e20f689c

View File

@ -415,7 +415,7 @@ recompile force = io $ do
libTs <- mapM getModTime . Prelude.filter isSource =<< 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 || any (binT <) (srcT : libTs)
then do then do
-- temporarily disable SIGCHLD ignoring: -- temporarily disable SIGCHLD ignoring:
uninstallSignalHandlers uninstallSignalHandlers