funbot-ext-events 0.1.0.0 → 0.2.0.0
raw patch · 4 files changed
+33/−4 lines, 4 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
- FunBot.ExtEvents: branchName :: Branch -> String
- FunBot.ExtEvents: branchRepo :: Branch -> String
- FunBot.ExtEvents: branchRepoOwner :: Branch -> String
- FunBot.ExtEvents: commitAuthor :: Commit -> String
- FunBot.ExtEvents: commitTitle :: Commit -> String
- FunBot.ExtEvents: commitUrl :: Commit -> String
- FunBot.ExtEvents: instance FromJSON Branch
- FunBot.ExtEvents: instance FromJSON Commit
- FunBot.ExtEvents: instance FromJSON ExtEvent
- FunBot.ExtEvents: instance FromJSON MergeRequest
- FunBot.ExtEvents: instance FromJSON NewsItem
- FunBot.ExtEvents: instance FromJSON Paste
- FunBot.ExtEvents: instance FromJSON Push
- FunBot.ExtEvents: instance FromJSON Tag
- FunBot.ExtEvents: instance Show Branch
- FunBot.ExtEvents: instance Show Commit
- FunBot.ExtEvents: instance Show ExtEvent
- FunBot.ExtEvents: instance Show MergeRequest
- FunBot.ExtEvents: instance Show NewsItem
- FunBot.ExtEvents: instance Show Paste
- FunBot.ExtEvents: instance Show Push
- FunBot.ExtEvents: instance Show Tag
- FunBot.ExtEvents: instance ToJSON Branch
- FunBot.ExtEvents: instance ToJSON Commit
- FunBot.ExtEvents: instance ToJSON ExtEvent
- FunBot.ExtEvents: instance ToJSON MergeRequest
- FunBot.ExtEvents: instance ToJSON NewsItem
- FunBot.ExtEvents: instance ToJSON Paste
- FunBot.ExtEvents: instance ToJSON Push
- FunBot.ExtEvents: instance ToJSON Tag
- FunBot.ExtEvents: itemAuthor :: NewsItem -> Maybe String
- FunBot.ExtEvents: itemFeedLabel :: NewsItem -> String
- FunBot.ExtEvents: itemFeedTitle :: NewsItem -> Maybe String
- FunBot.ExtEvents: itemTitle :: NewsItem -> String
- FunBot.ExtEvents: itemUrl :: NewsItem -> Maybe String
- FunBot.ExtEvents: mrAction :: MergeRequest -> String
- FunBot.ExtEvents: mrAuthor :: MergeRequest -> String
- FunBot.ExtEvents: mrId :: MergeRequest -> Int
- FunBot.ExtEvents: mrRepo :: MergeRequest -> String
- FunBot.ExtEvents: mrRepoOwner :: MergeRequest -> String
- FunBot.ExtEvents: mrTitle :: MergeRequest -> String
- FunBot.ExtEvents: mrUrl :: MergeRequest -> String
- FunBot.ExtEvents: pasteAuthor :: Paste -> String
- FunBot.ExtEvents: pasteChannel :: Paste -> String
- FunBot.ExtEvents: pasteTitle :: Paste -> String
- FunBot.ExtEvents: pasteUrl :: Paste -> String
- FunBot.ExtEvents: pasteVerb :: Paste -> String
- FunBot.ExtEvents: pushBranch :: Push -> Branch
- FunBot.ExtEvents: pushCommits :: Push -> [Commit]
- FunBot.ExtEvents: tagAuthor :: Tag -> String
- FunBot.ExtEvents: tagRef :: Tag -> String
- FunBot.ExtEvents: tagRepo :: Tag -> String
- FunBot.ExtEvents: tagRepoOwner :: Tag -> String
+ FunBot.ExtEvents: WelcomeEvent :: String -> String -> ExtEvent
+ FunBot.ExtEvents: [branchName] :: Branch -> String
+ FunBot.ExtEvents: [branchRepoOwner] :: Branch -> String
+ FunBot.ExtEvents: [branchRepo] :: Branch -> String
+ FunBot.ExtEvents: [commitAuthor] :: Commit -> String
+ FunBot.ExtEvents: [commitTitle] :: Commit -> String
+ FunBot.ExtEvents: [commitUrl] :: Commit -> String
+ FunBot.ExtEvents: [itemAuthor] :: NewsItem -> Maybe String
+ FunBot.ExtEvents: [itemFeedLabel] :: NewsItem -> String
+ FunBot.ExtEvents: [itemFeedTitle] :: NewsItem -> Maybe String
+ FunBot.ExtEvents: [itemTitle] :: NewsItem -> String
+ FunBot.ExtEvents: [itemUrl] :: NewsItem -> Maybe String
+ FunBot.ExtEvents: [mrAction] :: MergeRequest -> String
+ FunBot.ExtEvents: [mrAuthor] :: MergeRequest -> String
+ FunBot.ExtEvents: [mrId] :: MergeRequest -> Int
+ FunBot.ExtEvents: [mrRepoOwner] :: MergeRequest -> String
+ FunBot.ExtEvents: [mrRepo] :: MergeRequest -> String
+ FunBot.ExtEvents: [mrTitle] :: MergeRequest -> String
+ FunBot.ExtEvents: [mrUrl] :: MergeRequest -> String
+ FunBot.ExtEvents: [pasteAuthor] :: Paste -> String
+ FunBot.ExtEvents: [pasteChannel] :: Paste -> String
+ FunBot.ExtEvents: [pasteTitle] :: Paste -> String
+ FunBot.ExtEvents: [pasteUrl] :: Paste -> String
+ FunBot.ExtEvents: [pasteVerb] :: Paste -> String
+ FunBot.ExtEvents: [pushBranch] :: Push -> Branch
+ FunBot.ExtEvents: [pushCommits] :: Push -> [Commit]
+ FunBot.ExtEvents: [tagAuthor] :: Tag -> String
+ FunBot.ExtEvents: [tagRef] :: Tag -> String
+ FunBot.ExtEvents: [tagRepoOwner] :: Tag -> String
+ FunBot.ExtEvents: [tagRepo] :: Tag -> String
+ FunBot.ExtEvents: instance Data.Aeson.Types.Class.FromJSON FunBot.ExtEvents.Branch
+ FunBot.ExtEvents: instance Data.Aeson.Types.Class.FromJSON FunBot.ExtEvents.Commit
+ FunBot.ExtEvents: instance Data.Aeson.Types.Class.FromJSON FunBot.ExtEvents.ExtEvent
+ FunBot.ExtEvents: instance Data.Aeson.Types.Class.FromJSON FunBot.ExtEvents.MergeRequest
+ FunBot.ExtEvents: instance Data.Aeson.Types.Class.FromJSON FunBot.ExtEvents.NewsItem
+ FunBot.ExtEvents: instance Data.Aeson.Types.Class.FromJSON FunBot.ExtEvents.Paste
+ FunBot.ExtEvents: instance Data.Aeson.Types.Class.FromJSON FunBot.ExtEvents.Push
+ FunBot.ExtEvents: instance Data.Aeson.Types.Class.FromJSON FunBot.ExtEvents.Tag
+ FunBot.ExtEvents: instance Data.Aeson.Types.Class.ToJSON FunBot.ExtEvents.Branch
+ FunBot.ExtEvents: instance Data.Aeson.Types.Class.ToJSON FunBot.ExtEvents.Commit
+ FunBot.ExtEvents: instance Data.Aeson.Types.Class.ToJSON FunBot.ExtEvents.ExtEvent
+ FunBot.ExtEvents: instance Data.Aeson.Types.Class.ToJSON FunBot.ExtEvents.MergeRequest
+ FunBot.ExtEvents: instance Data.Aeson.Types.Class.ToJSON FunBot.ExtEvents.NewsItem
+ FunBot.ExtEvents: instance Data.Aeson.Types.Class.ToJSON FunBot.ExtEvents.Paste
+ FunBot.ExtEvents: instance Data.Aeson.Types.Class.ToJSON FunBot.ExtEvents.Push
+ FunBot.ExtEvents: instance Data.Aeson.Types.Class.ToJSON FunBot.ExtEvents.Tag
+ FunBot.ExtEvents: instance GHC.Show.Show FunBot.ExtEvents.Branch
+ FunBot.ExtEvents: instance GHC.Show.Show FunBot.ExtEvents.Commit
+ FunBot.ExtEvents: instance GHC.Show.Show FunBot.ExtEvents.ExtEvent
+ FunBot.ExtEvents: instance GHC.Show.Show FunBot.ExtEvents.MergeRequest
+ FunBot.ExtEvents: instance GHC.Show.Show FunBot.ExtEvents.NewsItem
+ FunBot.ExtEvents: instance GHC.Show.Show FunBot.ExtEvents.Paste
+ FunBot.ExtEvents: instance GHC.Show.Show FunBot.ExtEvents.Push
+ FunBot.ExtEvents: instance GHC.Show.Show FunBot.ExtEvents.Tag
Files
- NEWS +21/−0
- README.md +2/−2
- funbot-ext-events.cabal +2/−2
- src/FunBot/ExtEvents.hs +8/−0
NEWS view
@@ -3,6 +3,27 @@ +funbot-ext-events 0.2.0.0 -- 2015-12-17+=======================================++General, build and documentation changes:++* (None)++New APIs, features and enhancements:++* Add welcome event++Bug fixes:++* (None)++Dependency changes:++* (None)+++ funbot-ext-events 0.1.0.0 -- 2015-09-19 =======================================
README.md view
@@ -9,8 +9,8 @@ In most cases you should either use a higher-level library such as [funbot-client][funbot-client], or perhaps create one yourself. -[funbot]: https://notabug.org/fr33domlover/funbot.git-[funbot-client]: https://notabug.org/fr33domlover/funbot-client.git+[funbot]: https://notabug.org/fr33domlover/funbot+[funbot-client]: https://notabug.org/fr33domlover/funbot-client See the .cabal file for more info and link to project website and version control.
funbot-ext-events.cabal view
@@ -1,9 +1,9 @@ name: funbot-ext-events-version: 0.1.0.0+version: 0.2.0.0 synopsis: Interact with FunBot's external events. description: This is a library providing types and tools for interacting with- <https://notabug.org/fr33domlover/funbot.git FunBot>'s external events. The+ <https://notabug.org/fr33domlover/funbot FunBot>'s external events. The code was extracted from FunBot itself, so that independent programs can interact with it, e.g. by using its client API.
src/FunBot/ExtEvents.hs view
@@ -94,11 +94,18 @@ -- | An event coming from one of the external event sources. data ExtEvent+ -- | Git commits pushed into a repo. = GitPushEvent Push+ -- | A git tag pushed into a repo. | GitTagEvent Tag+ -- | A merge request related event. | MergeRequestEvent MergeRequest+ -- | New news item published. | NewsEvent NewsItem+ -- | Paste related event in a paste server. | PasteEvent Paste+ -- | A new IRC user needs to be welcomed to a channel.+ | WelcomeEvent String String deriving Show instance FromJSON Branch where@@ -255,3 +262,4 @@ toJSON (PasteEvent paste) = object [ "type" .= ("paste" :: T.Text) , "data" .= paste ]+ toJSON (WelcomeEvent _ _) = object []