diff options
| -rw-r--r-- | src/Plugin/GitHubCommit.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Plugin/GitHubCommit.hs b/src/Plugin/GitHubCommit.hs index 8fa8d0a..e5af381 100644 --- a/src/Plugin/GitHubCommit.hs +++ b/src/Plugin/GitHubCommit.hs @@ -15,3 +15,9 @@ gitHubCommit = Plugin gitHubCommitAction :: PluginAction gitHubCommitAction message = "https://github.com/" ++ M.text message =~ matchRegex gitHubCommit + +-- | A type to match the database table for this plugin. +data ChannelRepoUrl = ChannelRepoUrl Int String String deriving (Show) + +instance FromRow ChannelRepoUrl where + fromRow = ChannelRepoUrl <$> field <*> field <*> field |