Get compiling with new NonEmpty list in groupBy

Author: ChrisPenner

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

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)