diff --git a/share-api/src/Share/Postgres/Queries.hs b/share-api/src/Share/Postgres/Queries.hs index b4d7be11..d7fee185 100644 --- a/share-api/src/Share/Postgres/Queries.hs +++ b/share-api/src/Share/Postgres/Queries.hs @@ -289,7 +289,7 @@ listProjectsByUserWithMetadata callerUserId projectOwnerUserId = do listProjectsFromCatalogWithMetadata :: Maybe UserId -> -- | (project, numFavs, isFavedByCaller) - PG.Transaction e (Map CategoryName [(Project, FavData, ProjectOwner)]) + PG.Transaction e (Map CategoryName (NonEmpty (Project, FavData, ProjectOwner))) listProjectsFromCatalogWithMetadata callerUserId = do projects :: [(Project PG.:. PG.Only CategoryName PG.:. FavData PG.:. ProjectOwner)] <- PG.queryListRows sql projects diff --git a/share-api/src/Share/Web/Share/Projects/Types.hs b/share-api/src/Share/Web/Share/Projects/Types.hs index 0d5cdabd..15a60cd0 100644 --- a/share-api/src/Share/Web/Share/Projects/Types.hs +++ b/share-api/src/Share/Web/Share/Projects/Types.hs @@ -377,7 +377,7 @@ instance Aeson.FromJSON FavProjectRequest where data CatalogCategory = CatalogCategory { name :: CategoryName, - projects :: [APIProject :++ FavData] + projects :: NonEmpty (APIProject :++ FavData) } deriving (Show) diff --git a/unison b/unison index d884da2a..83f808c3 160000 --- a/unison +++ b/unison @@ -1 +1 @@ -Subproject commit d884da2a6bfd0f78b920cf08f583ddeadaaa5c02 +Subproject commit 83f808c39e129559e08d2f9e26e7361e48e5f047