From 1f97f890be4fcffa05efd2db53637bc09718d5b4 Mon Sep 17 00:00:00 2001
From: iphydf <iphydf@users.noreply.github.com>
Date: Fri, 15 Dec 2023 23:15:57 +0000
Subject: [PATCH] fix: Add new custom_properties field to Repository.

---
 BUILD.bazel                         | 2 --
 src/GitHub/Types/Base/Repository.hs | 4 ++++
 web/BUILD.bazel                     | 2 --
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/BUILD.bazel b/BUILD.bazel
index 2dc226c..d6ddb53 100644
--- a/BUILD.bazel
+++ b/BUILD.bazel
@@ -2,8 +2,6 @@ load("@rules_haskell//haskell:defs.bzl", "haskell_library")
 load("//third_party/haskell/hspec-discover:build_defs.bzl", "hspec_test")
 load("//tools/project:build_defs.bzl", "project")
 
-package(features = ["-layering_check"])
-
 project()
 
 haskell_library(
diff --git a/src/GitHub/Types/Base/Repository.hs b/src/GitHub/Types/Base/Repository.hs
index fafca15..adf6889 100644
--- a/src/GitHub/Types/Base/Repository.hs
+++ b/src/GitHub/Types/Base/Repository.hs
@@ -36,6 +36,7 @@ data Repository = Repository
     , repositoryContentsUrl              :: Text
     , repositoryContributorsUrl          :: Text
     , repositoryCreatedAt                :: DateTime
+    , repositoryCustomProperties         :: Value  -- TODO(iphydf): Figure out what this actually is.
     , repositoryDefaultBranch            :: Text
     , repositoryDeleteBranchOnMerge      :: Maybe Bool
     , repositoryDeploymentsUrl           :: Text
@@ -130,6 +131,7 @@ instance FromJSON Repository where
         <*> x .: "contents_url"
         <*> x .: "contributors_url"
         <*> x .: "created_at"
+        <*> x .: "custom_properties"
         <*> x .: "default_branch"
         <*> x .:? "delete_branch_on_merge"
         <*> x .: "deployments_url"
@@ -224,6 +226,7 @@ instance ToJSON Repository where
         , "contents_url"                .= repositoryContentsUrl
         , "contributors_url"            .= repositoryContributorsUrl
         , "created_at"                  .= repositoryCreatedAt
+        , "custom_properties"           .= repositoryCustomProperties
         , "default_branch"              .= repositoryDefaultBranch
         , "delete_branch_on_merge"      .= repositoryDeleteBranchOnMerge
         , "deployments_url"             .= repositoryDeploymentsUrl
@@ -388,3 +391,4 @@ instance Arbitrary Repository where
         <*> arbitrary
         <*> arbitrary
         <*> arbitrary
+        <*> arbitrary
diff --git a/web/BUILD.bazel b/web/BUILD.bazel
index 091b762..1c66c6c 100644
--- a/web/BUILD.bazel
+++ b/web/BUILD.bazel
@@ -1,7 +1,5 @@
 load("@rules_haskell//haskell:defs.bzl", "haskell_binary")
 
-package(features = ["-layering_check"])
-
 haskell_binary(
     name = "webservice",
     srcs = glob(["**/*.hs"]),