s/not changed/changed/ typo in 'recompileAll'.

This commit is contained in:
lemmih 2005-05-27 11:57:33 +00:00
parent 463b96f190
commit 087442a7d2

View File

@ -117,7 +117,7 @@ hasChanged' suffices m@(Module {path = p})
_ -> return True _ -> return True
-- --
-- |Like 'makeAll' but with better recompilation checks since module dependencies are known. -- |Same as 'makeAll' but with better recompilation checks since module dependencies are known.
-- --
recompileAll :: Module -> [Arg] -> IO MakeStatus recompileAll :: Module -> [Arg] -> IO MakeStatus
recompileAll = recompileAll' ["hs","lhs"] recompileAll = recompileAll' ["hs","lhs"]
@ -125,7 +125,7 @@ recompileAll = recompileAll' ["hs","lhs"]
recompileAll' :: [String] -> Module -> [Arg] -> IO MakeStatus recompileAll' :: [String] -> Module -> [Arg] -> IO MakeStatus
recompileAll' suffices m args recompileAll' suffices m args
= do changed <- hasChanged m = do changed <- hasChanged m
if not changed if changed
then do mbSource <- findFile suffices (path m) then do mbSource <- findFile suffices (path m)
case mbSource of case mbSource of
Nothing Nothing