haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-18 07:01:55 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Hacky to make VACUUM work

Browse Source
This commit is contained in:
Michael Snoyman 2015-05-15 06:13:49 +03:00
parent 7533b9b014
commit fac5b9c4f4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Stackage/Database.hs
View File

@ -250,7 +250,7 @@ createStackageDatabase fp = liftIO $ do
Left _ -> putStrLn $ "Skipping: " ++ fpToText fp' Left _ -> putStrLn $ "Skipping: " ++ fpToText fp'
Right _ -> action Right _ -> action
) )
flip runSqlPool pool $ rawExecute "VACUUM" [] flip runSqlPool pool $ mapM_ (flip rawExecute []) ["COMMIT", "VACUUM", "BEGIN"]
getDeprecated' :: [Deprecation] -> Tar.Entry -> [Deprecation] getDeprecated' :: [Deprecation] -> Tar.Entry -> [Deprecation]
getDeprecated' orig e = getDeprecated' orig e =