Fix servant-client build

Author: ChrisPenner

share-api/src/Share/Web/Share/Branches/Impl.hs

@@ -50,7 +50,6 @@ import Share.Web.Share.Projects.Types (projectToAPI)
 import Share.Web.Share.Types
 import U.Codebase.HashTags (CausalHash)
 import Unison.Codebase.Path qualified as Path
-import Unison.Debug qualified as Debug
 import Unison.HashQualified qualified as HQ
 import Unison.Name (Name)
 import Unison.NameSegment.Internal (NameSegment (..))
@@ -508,13 +507,11 @@ branchHistoryEndpoint (AuthN.MaybeAuthedUserID callerUserId) userHandle projectS
   let codebaseLoc = Codebase.codebaseLocationForProjectBranchCodebase projectOwnerUserId contributorId
   let codebase = Codebase.codebaseEnv authZReceipt codebaseLoc
   causalId <- resolveRootHash codebase branchHead Nothing
-  Debug.debugM Debug.Temp "branchHistoryEndpoint Resolved causalId: " causalId
   PG.runTransaction do
     history <-
       CausalQ.pagedCausalAncestors causalId limit mayCursor
         <&> fmap \(causalHash) ->
           BranchHistoryCausalEntry (BranchHistoryCausal {causalHash})
-    Debug.debugM Debug.Temp "branchHistoryEndpoint Retrieved history entries: " (history)
     pure $
       BranchHistoryResponse
         { projectRef,

share-api/src/Share/Web/Share/Branches/Types.hs

@@ -107,6 +107,13 @@ instance ToJSON BranchHistoryResponse where
         "history" .= history
       ]
 
+instance FromJSON BranchHistoryResponse where
+  parseJSON = withObject "BranchHistoryResponse" $ \o ->
+    BranchHistoryResponse
+      <$> (o .: "projectRef")
+      <*> (o .: "branchRef")
+      <*> o .: "history"
+
 data BranchHistoryCausal = BranchHistoryCausal
   { causalHash :: CausalHash
   }
@@ -118,6 +125,11 @@ instance ToJSON BranchHistoryCausal where
       [ "causalHash" .= causalHash
       ]
 
+instance FromJSON BranchHistoryCausal where
+  parseJSON = withObject "BranchHistoryCausal" $ \o ->
+    BranchHistoryCausal
+      <$> o .: "causalHash"
+
 data BranchHistoryEntry
   = BranchHistoryCausalEntry BranchHistoryCausal
   deriving stock (Eq, Show)
@@ -126,3 +138,8 @@ instance ToJSON BranchHistoryEntry where
   toJSON = \case
     (BranchHistoryCausalEntry causal) ->
       toJSON (causal :++ (object ["tag" .= ("Changeset" :: Text)]))
+
+instance FromJSON BranchHistoryEntry where
+  parseJSON v = do
+    causal <- parseJSON v
+    return $ BranchHistoryCausalEntry causal