Add history comments to api

Author: ChrisPenner

share-api/src/Share/Web/API.hs

@@ -18,6 +18,7 @@ import Share.Web.Share.Webhooks.API qualified as Webhooks
 import Share.Web.Support.API qualified as Support
 import Share.Web.Types
 import Share.Web.UCM.SyncV2.API qualified as SyncV2
+import Unison.Server.HistoryComments.API qualified as Unison.HistoryComments
 import Unison.Share.API.Projects qualified as UCMProjects
 import Unison.Sync.API qualified as Unison.Sync
 
@@ -53,6 +54,7 @@ type API =
     -- This path is deprecated, but is still in use by existing clients.
     :<|> ("sync" :> MaybeAuthenticatedSession :> Unison.Sync.API)
     :<|> ("ucm" :> "v1" :> "sync" :> MaybeAuthenticatedSession :> Unison.Sync.API)
+    :<|> ("ucm" :> "v1" :> "history-comments" :> MaybeAuthenticatedSession :> Unison.HistoryComments.API)
     :<|> ("ucm" :> "v1" :> "projects" :> MaybeAuthenticatedSession :> UCMProjects.ProjectsAPI)
     :<|> ("ucm" :> "v2" :> "sync" :> MaybeAuthenticatedUserId :> SyncV2.API)
     :<|> ("admin" :> Admin.API)

share-api/src/Share/Web/UCM/HistoryComments/Impl.hs

@@ -67,7 +67,7 @@ uploadHistoryCommentsStreamImpl mayCallerUserId br@(BranchRef branchRef) conn =
       branch <- MaybeT $ PGQ.branchByProjectBranchShortHand projectBranchSH
       contributorUser <- MaybeT $ for contributorHandle UserQ.userByHandle
       pure (project, branch, contributorUser)
-    (project, branch, contributorUser) <- maybe (handleErrInQueue q $ UploadCommentsProjectBranchNotFound br) pure $ mayInfo
+    (project, _branch, contributorUser) <- maybe (handleErrInQueue q $ UploadCommentsProjectBranchNotFound br) pure $ mayInfo
     authZ <-
       lift (AuthZ.checkUploadToProjectBranchCodebase callerUserId project.projectId contributorUser.user_id) >>= \case
         Left _authErr -> handleErrInQueue q (UploadCommentsNotAuthorized br)