schema - add the GithubUser provider

change-metrics · Sep 18, 2023 · fe7e089 · fe7e089
1 parent c471fc2
commit fe7e089
Show file tree

Hide file tree

Showing 6 changed files with 12 additions and 0 deletions.
diff --git a/schemas/monocle/config/Crawler/Provider.dhall b/schemas/monocle/config/Crawler/Provider.dhall
@@ -1,6 +1,7 @@
 -- | The provider service for a worker
 < GitlabProvider : ../Provider/Gitlab/Type.dhall
 | GithubProvider : ../Provider/Github/Type.dhall
+| GithubUserProvider : ../Provider/GithubUser/Type.dhall
 | GithubApplicationProvider : ../Provider/GithubApplication/Type.dhall
 | GerritProvider : ../Provider/Gerrit/Type.dhall
 | BugzillaProvider : ../Provider/Bugzilla/Type.dhall

diff --git a/schemas/monocle/config/Provider/GithubUser/Type.dhall b/schemas/monocle/config/Provider/GithubUser/Type.dhall
@@ -0,0 +1,4 @@
+{ github_url : Optional Text
+, github_token : Optional Text
+, github_users : List Text
+}
diff --git a/schemas/monocle/config/Provider/GithubUser/default.dhall b/schemas/monocle/config/Provider/GithubUser/default.dhall
@@ -0,0 +1 @@
+{ github_url = None Text, github_users = List Text, github_token = None Text }
diff --git a/schemas/monocle/config/Provider/GithubUser/package.dhall b/schemas/monocle/config/Provider/GithubUser/package.dhall
@@ -0,0 +1 @@
+{ Type = ./Type.dhall, default = ./default.dhall }
diff --git a/src/Macroscope/Main.hs b/src/Macroscope/Main.hs
@@ -372,6 +372,7 @@ getCrawler inf@(InfoCrawler _ _ crawler idents) = getCompose $ fmap addInfos (Co
                 <> [ghIssuesCrawler ghClient]
                 <> [ghPRCrawler ghClient getIdentByAliasCB]
         pure $ Just (k, crawlers)
+      Config.GithubUserProvider _ -> pure Nothing -- Not yet implemented
       Config.GithubApplicationProvider _ -> pure Nothing -- "Not (yet) implemented"
       Config.TaskDataProvider -> pure Nothing -- This is a generic crawler, not managed by the macroscope
   getIdentByAliasCB :: Text -> Maybe Text

diff --git a/src/Monocle/Config.hs b/src/Monocle/Config.hs
@@ -114,6 +114,7 @@ Dhall.TH.makeHaskellTypes
         , provider "Gerrit"
         , provider "Gitlab"
         , provider "Github"
+        , provider "GithubUser"
         , provider "GithubApplication"
         , provider "Bugzilla"
         , authProvider "OIDC"
@@ -154,6 +155,9 @@ deriving instance Show Gerrit
 deriving instance Eq Github
 deriving instance Show Github
 
+deriving instance Eq GithubUser
+deriving instance Show GithubUser
+
 deriving instance Eq GithubApplication
 deriving instance Show GithubApplication
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1 @@
		{ github_url = None Text, github_users = List Text, github_token = None Text }
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1 @@
		{ Type = ./Type.dhall, default = ./default.dhall }