save whole hackage db in one transaction

serras · Mar 2, 2012 · ff28896 · ff28896
1 parent dabbcbe
commit ff28896
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Scion/PersistentBrowser/Build.hs b/src/Scion/PersistentBrowser/Build.hs
@@ -66,7 +66,8 @@ saveHackageDatabase file = withTemporaryDirectory (saveHackageDatabaseWithTmp fi
 
 saveHackageDatabaseWithTmp :: FilePath -> FilePath -> IO ()
 saveHackageDatabaseWithTmp file tmp = do (db, _) <- createHackageDatabase tmp
-                                         mapM_ (\pkg -> withSqliteConn (T.pack file) (runSqlConn (savePackageToDb pkg))) db
+                                         withSqliteConn (T.pack file) (runSqlConn (mapM_ savePackageToDb db))
+                                         --mapM_ (\pkg -> withSqliteConn (T.pack file) (runSqlConn (savePackageToDb pkg))) db
 
 -- | Downloads the information for the entire Hackage database
 --   creating an in-memory database with it.