diff options
Diffstat (limited to 'Biz/Lint.hs')
| -rw-r--r-- | Biz/Lint.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Biz/Lint.hs b/Biz/Lint.hs index b1cc0d4..f9b16d0 100644 --- a/Biz/Lint.hs +++ b/Biz/Lint.hs @@ -14,7 +14,6 @@ import Biz.Namespace (Ext (..), Namespace (..)) import qualified Biz.Namespace as Namespace import Biz.Test ((@=?)) import qualified Biz.Test as Test -import qualified Control.Concurrent.Async as Async import qualified Data.String as String import qualified Data.Text as Text import qualified System.Directory as Directory @@ -153,7 +152,7 @@ run :: Mode -> [FilePath] -> IO [Result] run mode paths = do cwd <- Directory.getCurrentDirectory root <- Environment.getEnv "BIZ_ROOT" - concat </ Async.mapConcurrently (runOne mode root cwd) paths + concat </ traverse (runOne mode root cwd) paths runOne :: Mode -> FilePath -> FilePath -> FilePath -> IO [Result] runOne mode root cwd path_ = results +> traverse_ printResult >> results |