@@ -138,7 +138,7 @@ main = do
138 globalPackageMaintainers = Map.unionsWith Set.union [ Map.singleton p (Set.singleton m) | (m,ps) <- Map.toList (packageMaintainers config), p <- Set.toList ps ]
138 globalPackageMaintainers = Map.unionsWith Set.union [ Map.singleton p (Set.singleton m) | (m,ps) <- Map.toList (packageMaintainers config), p <- Set.toList ps ]
140 pkgs <- runParIO $ flip parMapM (Map.toAscList db) $ \(name, vs) -> do
140 pkgs <- runParIO $ flip parMapM (Map.toAscList db) $ \(name, vs) -> do
141− defs <- flip mapM (Set.toAscList vs) $ \v -> liftIO $ do
141+ defs <- forM (Set.toAscList vs) $ \v -> liftIO $ do
142 let pkgId :: PackageIdentifier
142 let pkgId :: PackageIdentifier
143 pkgId = PackageIdentifier name v
143 pkgId = PackageIdentifier name v