@@ -138,7 +138,7 @@ main = do
138138 globalPackageMaintainers = Map.unionsWith Set.union [ Map.singleton p (Set.singleton m) | (m,ps) <- Map.toList (packageMaintainers config), p <- Set.toList ps ]
139139
140140 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
142142 let pkgId :: PackageIdentifier
143143 pkgId = PackageIdentifier name v
144144