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

group non-categorical searches properly

Browse Source
This commit is contained in:
Keagan McClelland
2022-05-31 14:02:47 -06:00
parent 6367da9c3b
commit f3b9e78fca
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/Database/Marketplace.hs
View File

@@ -103,7 +103,12 @@ searchServices Nothing query = selectSource $ do
||. (service ^. VersionRecordDescLong `ilike` (%) ++. val query ++. (%)) ||. (service ^. VersionRecordDescLong `ilike` (%) ++. val query ++. (%))
||. (service ^. VersionRecordTitle `ilike` (%) ++. val query ++. (%)) ||. (service ^. VersionRecordTitle `ilike` (%) ++. val query ++. (%))
) )
orderBy [desc (service ^. VersionRecordUpdatedAt)] groupBy (service ^. VersionRecordPkgId, service ^. VersionRecordNumber)
orderBy
[ asc (service ^. VersionRecordPkgId)
, desc (service ^. VersionRecordNumber)
, desc (service ^. VersionRecordUpdatedAt)
]
pure service pure service
searchServices (Just category) query = selectSource $ do searchServices (Just category) query = selectSource $ do
services <- from services <- from