Skip to content

Update EditRepo type #407

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 3 commits into from
Oct 22, 2019
Merged

Update EditRepo type #407

Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
6c743cf
Update EditRepo type
matsubara0507 Oct 7, 2019
28e82b9
Update Repo type
matsubara0507 Oct 20, 2019
56977c7
Update NewRepo type
matsubara0507 Oct 20, 2019
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
195 changes: 115 additions & 80 deletions src/GitHub/Data/Repos.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -29,36 +29,37 @@ import Unsafe.Coerce (unsafeCoerce)
#endif

data Repo = Repo
{ repoSshUrl :: !(Maybe URL)
, repoDescription :: !(Maybe Text)
, repoCreatedAt :: !(Maybe UTCTime)
{ repoId :: !(Id Repo)
, repoName :: !(Name Repo)
, repoOwner :: !SimpleOwner
, repoPrivate :: !Bool
, repoHtmlUrl :: !URL
, repoSvnUrl :: !(Maybe URL)
, repoForks :: !(Maybe Int)
, repoHomepage :: !(Maybe Text)
, repoDescription :: !(Maybe Text)
, repoFork :: !(Maybe Bool)
, repoUrl :: !URL
, repoGitUrl :: !(Maybe URL)
, repoPrivate :: !Bool
, repoArchived :: !Bool
, repoSshUrl :: !(Maybe URL)
, repoCloneUrl :: !(Maybe URL)
, repoSize :: !(Maybe Int)
, repoUpdatedAt :: !(Maybe UTCTime)
, repoWatchers :: !(Maybe Int)
, repoOwner :: !SimpleOwner
, repoName :: !(Name Repo)
, repoHooksUrl :: !URL
, repoSvnUrl :: !(Maybe URL)
, repoHomepage :: !(Maybe Text)
, repoLanguage :: !(Maybe Language)
, repoForksCount :: !Int
, repoStargazersCount :: !Int
, repoWatchersCount :: !Int
, repoSize :: !(Maybe Int)
, repoDefaultBranch :: !(Maybe Text)
, repoPushedAt :: !(Maybe UTCTime) -- ^ this is Nothing for new repositories
, repoId :: !(Id Repo)
, repoUrl :: !URL
, repoOpenIssues :: !(Maybe Int)
, repoHasWiki :: !(Maybe Bool)
, repoOpenIssuesCount :: !Int
, repoHasIssues :: !(Maybe Bool)
, repoHasProjects :: !(Maybe Bool)
, repoHasWiki :: !(Maybe Bool)
, repoHasPages :: !(Maybe Bool)
, repoHasDownloads :: !(Maybe Bool)
, repoParent :: !(Maybe RepoRef)
, repoSource :: !(Maybe RepoRef)
, repoHooksUrl :: !URL
, repoStargazersCount :: !Int
, repoArchived :: !Bool
, repoDisabled :: !Bool
, repoPushedAt :: !(Maybe UTCTime) -- ^ this is Nothing for new repositories
, repoCreatedAt :: !(Maybe UTCTime)
, repoUpdatedAt :: !(Maybe UTCTime)
}
deriving (Show, Data, Typeable, Eq, Ord, Generic)

Expand All @@ -75,29 +76,40 @@ instance NFData RepoRef where rnf = genericRnf
instance Binary RepoRef

data NewRepo = NewRepo
{ newRepoName :: !(Name Repo)
, newRepoDescription :: !(Maybe Text)
, newRepoHomepage :: !(Maybe Text)
, newRepoPrivate :: !(Maybe Bool)
, newRepoHasIssues :: !(Maybe Bool)
, newRepoHasWiki :: !(Maybe Bool)
, newRepoAutoInit :: !(Maybe Bool)
{ newRepoName :: !(Name Repo)
, newRepoDescription :: !(Maybe Text)
, newRepoHomepage :: !(Maybe Text)
, newRepoPrivate :: !(Maybe Bool)
, newRepoHasIssues :: !(Maybe Bool)
, newRepoHasProjects :: !(Maybe Bool)
, newRepoHasWiki :: !(Maybe Bool)
, newRepoAutoInit :: !(Maybe Bool)
, newRepoGitignoreTemplate :: !(Maybe Text)
, newRepoLicenseTemplate :: !(Maybe Text)
, newRepoAllowSquashMerge :: !(Maybe Bool)
, newRepoAllowMergeCommit :: !(Maybe Bool)
, newRepoAllowRebaseMerge :: !(Maybe Bool)
} deriving (Eq, Ord, Show, Data, Typeable, Generic)

instance NFData NewRepo where rnf = genericRnf
instance Binary NewRepo

newRepo :: Name Repo -> NewRepo
newRepo name = NewRepo name Nothing Nothing Nothing Nothing Nothing Nothing
newRepo name = NewRepo name Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing

data EditRepo = EditRepo
{ editName :: !(Maybe (Name Repo))
, editDescription :: !(Maybe Text)
, editHomepage :: !(Maybe Text)
, editPublic :: !(Maybe Bool)
, editHasIssues :: !(Maybe Bool)
, editHasWiki :: !(Maybe Bool)
, editHasDownloads :: !(Maybe Bool)
{ editName :: !(Maybe (Name Repo))
, editDescription :: !(Maybe Text)
, editHomepage :: !(Maybe Text)
, editPrivate :: !(Maybe Bool)
, editHasIssues :: !(Maybe Bool)
, editHasProjects :: !(Maybe Bool)
, editHasWiki :: !(Maybe Bool)
, editDefaultBranch :: !(Maybe Text)
, editAllowSquashMerge :: !(Maybe Bool)
, editAllowMergeCommit :: !(Maybe Bool)
, editAllowRebaseMerge :: !(Maybe Bool)
, editArchived :: !(Maybe Bool)
}
deriving (Eq, Ord, Show, Data, Typeable, Generic)

Expand Down Expand Up @@ -149,71 +161,94 @@ contributorToSimpleUser (KnownContributor _contributions avatarUrl name url uid
-- JSON instances

instance FromJSON Repo where
parseJSON = withObject "Repo" $ \o -> Repo <$> o .:? "ssh_url"
<*> o .: "description"
<*> o .:? "created_at"
parseJSON = withObject "Repo" $ \o -> Repo <$> o .: "id"
<*> o .: "name"
<*> o .: "owner"
<*> o .: "private"
<*> o .: "html_url"
<*> o .:? "svn_url"
<*> o .:? "forks"
<*> o .:? "homepage"
<*> o .:? "description"
<*> o .: "fork"
<*> o .: "url"
<*> o .:? "git_url"
<*> o .: "private"
<*> o .:? "archived" .!= False
<*> o .:? "ssh_url"
<*> o .:? "clone_url"
<*> o .:? "size"
<*> o .:? "updated_at"
<*> o .:? "watchers"
<*> o .: "owner"
<*> o .: "name"
<*> o .: "hooks_url"
<*> o .:? "svn_url"
<*> o .:? "homepage"
<*> o .:? "language"
<*> o .: "forks_count"
<*> o .: "stargazers_count"
<*> o .: "watchers_count"
<*> o .:? "size"
<*> o .:? "default_branch"
<*> o .:? "pushed_at"
<*> o .: "id"
<*> o .: "url"
<*> o .:? "open_issues"
<*> o .:? "has_wiki"
<*> o .: "open_issues_count"
<*> o .:? "has_issues"
<*> o .:? "has_projects"
<*> o .:? "has_wiki"
<*> o .:? "has_pages"
<*> o .:? "has_downloads"
<*> o .:? "parent"
<*> o .:? "source"
<*> o .: "hooks_url"
<*> o .: "stargazers_count"
<*> o .:? "archived" .!= False
<*> o .:? "disabled" .!= False
<*> o .:? "pushed_at"
<*> o .:? "created_at"
<*> o .:? "updated_at"

instance ToJSON NewRepo where
toJSON (NewRepo { newRepoName = name
, newRepoDescription = description
, newRepoHomepage = homepage
, newRepoPrivate = private
, newRepoHasIssues = hasIssues
, newRepoHasWiki = hasWiki
, newRepoAutoInit = autoInit
toJSON (NewRepo { newRepoName = name
, newRepoDescription = description
, newRepoHomepage = homepage
, newRepoPrivate = private
, newRepoHasIssues = hasIssues
, newRepoHasProjects = hasProjects
, newRepoHasWiki = hasWiki
, newRepoAutoInit = autoInit
, newRepoGitignoreTemplate = gitignoreTemplate
, newRepoLicenseTemplate = licenseTemplate
, newRepoAllowSquashMerge = allowSquashMerge
, newRepoAllowMergeCommit = allowMergeCommit
, newRepoAllowRebaseMerge = allowRebaseMerge
}) = object
[ "name" .= name
, "description" .= description
, "homepage" .= homepage
, "private" .= private
, "has_issues" .= hasIssues
, "has_projects" .= hasProjects
, "has_wiki" .= hasWiki
, "auto_init" .= autoInit
, "gitignore_template" .= gitignoreTemplate
, "license_template" .= licenseTemplate
, "allow_squash_merge" .= allowSquashMerge
, "allow_merge_commit" .= allowMergeCommit
, "allow_rebase_merge" .= allowRebaseMerge
]

instance ToJSON EditRepo where
toJSON (EditRepo { editName = name
, editDescription = description
, editHomepage = homepage
, editPublic = public
, editHasIssues = hasIssues
, editHasWiki = hasWiki
, editHasDownloads = hasDownloads
toJSON (EditRepo { editName = name
, editDescription = description
, editHomepage = homepage
, editPrivate = private
, editHasIssues = hasIssues
, editHasProjects = hasProjects
, editHasWiki = hasWiki
, editDefaultBranch = defaultBranch
, editAllowSquashMerge = allowSquashMerge
, editAllowMergeCommit = allowMergeCommit
, editAllowRebaseMerge = allowRebaseMerge
, editArchived = archived
}) = object
[ "name" .= name
, "description" .= description
, "homepage" .= homepage
, "public" .= public
, "has_issues" .= hasIssues
, "has_wiki" .= hasWiki
, "has_downloads" .= hasDownloads
[ "name" .= name
, "description" .= description
, "homepage" .= homepage
, "private" .= private
, "has_issues" .= hasIssues
, "has_projects" .= hasProjects
, "has_wiki" .= hasWiki
, "default_branch" .= defaultBranch
, "allow_squash_merge" .= allowSquashMerge
, "allow_merge_commit" .= allowMergeCommit
, "allow_rebase_merge" .= allowRebaseMerge
, "archived" .= archived
]

instance FromJSON RepoRef where
Expand Down