gerrit 0.1.1.0 → 0.1.2.0

raw patch · 5 files changed

+22/−11 lines, 5 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• CHANGELOG.md +5/−0
• gerrit.cabal +1/−1
• src/Gerrit/Data/Account.hs +1/−0
• src/Gerrit/Data/Change.hs +14/−10
• src/Gerrit/Data/Project.hs +1/−0

@@ -1,5 +1,10 @@ # Changelog +## 0.1.2.0 (2021-10-18)++- Add missing Eq and Show instances+- Add support for change' fields: topic and hashtags+ ## 0.1.1.0 (2021-10-13)  - Add EventCreatedOn Event attribute

@@ -1,6 +1,6 @@ cabal-version:       2.4 name:                gerrit-version:             0.1.1.0+version:             0.1.2.0 synopsis:            A gerrit client library description:     Gerrit is a client library to interface with https://www.gerritcodereview.com/

@@ -24,6 +24,7 @@   | Username Text   | IsActive   | IsInactive+  deriving (Eq, Show)  userQueryText :: GerritAccountQuery -> Text userQueryText guq = case guq of

@@ -54,6 +54,7 @@   | Project Text   | ChangeId Text   | After UTCTime+  deriving (Eq, Show)  -- | Convert a GerritQuery object to the search terms queryText :: GerritQuery -> Text@@ -124,7 +125,7 @@     gfSizeDelta :: Maybe Int,     gfSize :: Maybe Int   }-  deriving (Show, Generic)+  deriving (Eq, Show, Generic)  instance FromJSON GerritFile where   parseJSON = genericParseJSON $ aesonPrefix snakeCase@@ -135,7 +136,7 @@     cSubject :: Text,     cMessage :: Text   }-  deriving (Show, Generic)+  deriving (Eq, Show, Generic)  instance FromJSON GerritCommit where   parseJSON = genericParseJSON $ aesonPrefix snakeCase@@ -147,7 +148,7 @@     grCommit :: GerritCommit,     grUploader :: GerritAuthor   }-  deriving (Show, Generic)+  deriving (Eq, Show, Generic)  instance FromJSON GerritRevision where   parseJSON = genericParseJSON $ aesonPrefix snakeCase@@ -156,7 +157,7 @@   { value :: Maybe Int,     account_id :: Int   }-  deriving (Show, Generic)+  deriving (Eq, Show, Generic)  instance FromJSON GerritDetailedLabelVote where   parseJSON = genericParseJSON aesonOptions@@ -165,7 +166,7 @@   { all :: Maybe [GerritDetailedLabelVote],     default_value :: Int   }-  deriving (Show, Generic, FromJSON)+  deriving (Eq, Show, Generic, FromJSON)  data GerritAuthor = GerritAuthor   { aAccountId :: Int,@@ -173,7 +174,7 @@     aEmail :: Maybe Text,     aUsername :: Maybe Text   }-  deriving (Show, Generic)+  deriving (Eq, Show, Generic)  instance FromJSON GerritAuthor where   parseJSON = genericParseJSON aesonOptions@@ -183,12 +184,13 @@     caEmail :: Maybe Text,     caDate :: GerritTime   }-  deriving (Show, Generic)+  deriving (Eq, Show, Generic)  instance FromJSON GerritCommitAuthor where   parseJSON = genericParseJSON $ aesonPrefix snakeCase -newtype GerritTime = GerritTime {unGerritTime :: UTCTime} deriving (Show)+newtype GerritTime = GerritTime {unGerritTime :: UTCTime}+  deriving (Eq, Show)  instance FromJSON GerritTime where   parseJSON = withText "UTCTimePlus" (parse . T.unpack)@@ -203,7 +205,7 @@     mDate :: GerritTime,     mMessage :: Text   }-  deriving (Show, Generic)+  deriving (Eq, Show, Generic)  instance FromJSON GerritChangeMessage where   parseJSON = genericParseJSON $ aesonPrefix snakeCase@@ -212,6 +214,7 @@   { id :: Text,     project :: Text,     branch :: Text,+    hashtags :: [Text],     subject :: Text,     status :: GerritChangeStatus,     mergeable :: Maybe Bool,@@ -225,11 +228,12 @@     updated :: GerritTime,     submitted :: Maybe GerritTime,     submitter :: Maybe GerritAuthor,+    topic :: Maybe Text,     insertions :: Int,     deletions :: Int,     more_changes :: Maybe Bool   }-  deriving (Show, Generic)+  deriving (Eq, Show, Generic)  instance FromJSON GerritChange where   parseJSON = genericParseJSON aesonOptions

@@ -17,6 +17,7 @@ import GHC.Generics (Generic)  data GerritProjectQuery = Regexp Text | Prefix Text+  deriving (Eq, Show)  queryText :: GerritProjectQuery -> Text queryText (Regexp re) = "r=" <> re