From fac5b9c4f4bbfa9951efb482e146dc75f400485f Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Fri, 15 May 2015 06:13:49 +0300 Subject: [PATCH] Hacky to make VACUUM work --- Stackage/Database.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Stackage/Database.hs b/Stackage/Database.hs index 925dce9..bf9197d 100644 --- a/Stackage/Database.hs +++ b/Stackage/Database.hs @@ -250,7 +250,7 @@ createStackageDatabase fp = liftIO $ do Left _ -> putStrLn $ "Skipping: " ++ fpToText fp' Right _ -> action ) - flip runSqlPool pool $ rawExecute "VACUUM" [] + flip runSqlPool pool $ mapM_ (flip rawExecute []) ["COMMIT", "VACUUM", "BEGIN"] getDeprecated' :: [Deprecation] -> Tar.Entry -> [Deprecation] getDeprecated' orig e =