stub out client side of share api

This commit is contained in:
Mitchell Rosen 2023-01-26 14:00:25 -05:00
parent 003ccb0284
commit dd234993fe
3 changed files with 31 additions and 0 deletions

View File

@ -78,6 +78,7 @@ dependencies:
- unison-prelude
- unison-pretty-printer
- unison-share-api
- unison-share-projects-api
- unison-sqlite
- unison-syntax
- unison-util-base32hex

View File

@ -0,0 +1,24 @@
-- | Share API calls related to projects.
module Unison.Cli.Share.Projects where
import Data.Proxy
import Servant.API ((:<|>) (..))
import Servant.Client
import Unison.Prelude
import Unison.Share.API.Projects
getProject0 :: Maybe Text -> Maybe Text -> ClientM GetProjectResponse
createProject :: CreateProjectRequest -> ClientM CreateProjectResponse
getProjectBranch :: Text -> Maybe Text -> Maybe Text -> ClientM GetProjectBranchResponse
createProjectBranch :: CreateProjectBranchRequest -> ClientM CreateProjectBranchResponse
setProjectBranchHead :: SetProjectBranchHeadRequest -> ClientM SetProjectBranchHeadResponse
( getProject0
:<|> createProject
:<|> getProjectBranch
:<|> createProjectBranch
:<|> setProjectBranchHead
) =
hoistClient projectsAPI id (client projectsAPI)
where
projectsAPI :: Proxy ProjectsAPI
projectsAPI = Proxy

View File

@ -35,6 +35,7 @@ library
Unison.Cli.NamesUtils
Unison.Cli.PrettyPrintUtils
Unison.Cli.ProjectUtils
Unison.Cli.Share.Projects
Unison.Cli.TypeCheck
Unison.Cli.UnisonConfigUtils
Unison.Codebase.Editor.AuthorInfo
@ -196,6 +197,7 @@ library
, unison-prelude
, unison-pretty-printer
, unison-share-api
, unison-share-projects-api
, unison-sqlite
, unison-syntax
, unison-util-base32hex
@ -326,6 +328,7 @@ executable cli-integration-tests
, unison-prelude
, unison-pretty-printer
, unison-share-api
, unison-share-projects-api
, unison-sqlite
, unison-syntax
, unison-util-base32hex
@ -450,6 +453,7 @@ executable transcripts
, unison-prelude
, unison-pretty-printer
, unison-share-api
, unison-share-projects-api
, unison-sqlite
, unison-syntax
, unison-util-base32hex
@ -581,6 +585,7 @@ executable unison
, unison-prelude
, unison-pretty-printer
, unison-share-api
, unison-share-projects-api
, unison-sqlite
, unison-syntax
, unison-util-base32hex
@ -715,6 +720,7 @@ test-suite cli-tests
, unison-prelude
, unison-pretty-printer
, unison-share-api
, unison-share-projects-api
, unison-sqlite
, unison-syntax
, unison-util-base32hex