GitHubCommit.hs: Add `ChannelRepoUrl` database type

A type that will be used in conjunction with 'sqlite-simple' to read
values from the plugin's database table.

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