s/not changed/changed/ typo in 'recompileAll'.
This commit is contained in:
parent
463b96f190
commit
087442a7d2
@ -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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user