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

fix bug

Browse Source
This commit is contained in:
Keagan McClelland
2022-06-09 18:53:58 -06:00
parent 138bf6dd04
commit 795e439e75
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/Database/Queries.hs
View File

@@ -17,6 +17,7 @@ import Lib.Types.Emver (Version)
import Model (
Key (PkgRecordKey, VersionRecordKey),
Metric (Metric),
PkgDependency (..),
PkgRecord (PkgRecord),
VersionRecord (VersionRecord),
)
@@ -100,7 +101,6 @@ import Model (
),
Key (unPkgRecordKey),
PkgCategory,
PkgDependency (pkgDependencyPkgId),
VersionRecord (versionRecordNumber, versionRecordPkgId),
)
import Startlude (
@@ -221,7 +221,7 @@ getDependencyVersions ::
PkgDependency ->
ReaderT SqlBackend m [VersionRecord]
getDependencyVersions pkgDepRecord = do
let pkgDbId = pkgDependencyPkgId pkgDepRecord
let pkgDbId = pkgDependencyDepId pkgDepRecord
depVers <- select $ do
v <- from $ table @VersionRecord
where_ $ v ^. VersionRecordPkgId ==. val pkgDbId