@@ -49,6 +49,7 @@ import Data.Function (on)
4949import Data.List (sortBy, groupBy)
5050import Data.Maybe (fromMaybe)
5151import Data.Time.Clock
52+import Data.Foldable (for_)
5253import Data.Traversable (traverse)
5354import Data.Version (showVersion)
5455import qualified Data.Map as M
@@ -140,7 +141,6 @@ make :: forall m. (Functor m, Applicative m, Monad m, MonadReader Options m, Mon
140141 -> m Environment
141142make MakeActions{..} ms = do
142143 (sorted, graph) <- sortModules $ map importPrim ms
143− mapM_ lint sorted
144144 toRebuild <- foldM (\s (Module _ moduleName' _ _) -> do
145145 inputTimestamp <- getInputTimestamp moduleName'
146146 outputTimestamp <- getOutputTimestamp moduleName'
@@ -150,6 +150,7 @@ make MakeActions{..} ms = do
150150 _ -> S.insert moduleName' s) S.empty sorted
151151
152152 marked <- rebuildIfNecessary (reverseDependencies graph) toRebuild sorted
153+ for_ marked $ \(willRebuild, m) -> when willRebuild (lint m)
153154 (desugared, nextVar) <- runSupplyT 0 $ zip (map fst marked) <$> desugar (map snd marked)
154155 evalSupplyT nextVar $ go initEnvironment desugared
155156 where