Commit f490c038 authored by Niels Bunkenburg's avatar Niels Bunkenburg

Implement package store #56

parent b383fafb
......@@ -65,6 +65,9 @@ handleUploadNewPackageTarGz userid tarpath = do
-- Move package data to target location
createDirectoryIfMissing True ("packages" </> name </> version)
renameDirectory dirname ("packages" </> name </> version)
-- Move tar file to package store
createDirectoryIfMissing True "packagestore"
copyFile tarpath ("packagestore" </> name ++ "-" ++ version ++ ".tar.gz")
if userTrusted user
then updatePackageIndex
else updateStagingPackageIndex
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment