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