Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-26 02:11:53 +00:00
Code Issues Packages Projects Releases Wiki Activity

test log

Browse Source
This commit is contained in:
Lucy Cifferello
2024-04-16 18:55:13 -04:00
parent e508ec64d4
commit 123a9b2e83
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Admin.hs
View File

@@ -147,6 +147,7 @@ import Yesod.Core.Types (JSONResponse (JSONResponse))
import Database.Persist.Sql (runSqlPool) import Database.Persist.Sql (runSqlPool)
import Database.Persist ((==.)) import Database.Persist ((==.))
import Network.HTTP.Types.Status (status401) import Network.HTTP.Types.Status (status401)
import Control.Monad.Logger (logInfo)
postPkgUploadR :: Handler () postPkgUploadR :: Handler ()
postPkgUploadR = do postPkgUploadR = do
@@ -161,6 +162,7 @@ postPkgUploadR = do
name <- checkAdminAuthUpload packageManifestId name <- checkAdminAuthUpload packageManifestId
finishUpload dir path name PackageManifest{..} finishUpload dir path name PackageManifest{..}
Just pkgId -> do Just pkgId -> do
$logInfo $ "VALID: " <> show pkgId
name <- checkAdminAuthUpload pkgId name <- checkAdminAuthUpload pkgId
PackageManifest{..} <- extractPackageManifest dir path PackageManifest{..} <- extractPackageManifest dir path
if packageManifestId /= pkgId if packageManifestId /= pkgId