GitHubCommit.hs: Make types of `ChannelRepoUrl` more specific

Define some extra types in `ChannelRepoUrl` because I didn't like the
generic ones.

1 files changed, 5 insertions, 1 deletions

diff --git a/src/Plugin/GitHubCommit.hs b/src/Plugin/GitHubCommit.hs
index e5af381..4175fb8 100644
--- a/src/Plugin/GitHubCommit.hs
+++ b/src/Plugin/GitHubCommit.hs
@@ -16,8 +16,12 @@ gitHubCommitAction :: PluginAction
 gitHubCommitAction message =
     "https://github.com/" ++ M.text message =~ matchRegex gitHubCommit
 
+type Id = Int
+
+type RepoUrl = String
+
 -- | A type to match the database table for this plugin.
-data ChannelRepoUrl = ChannelRepoUrl Int String String deriving (Show)
+data ChannelRepoUrl = ChannelRepoUrl Id M.Channel RepoUrl deriving (Show)
 
 instance FromRow ChannelRepoUrl where
     fromRow = ChannelRepoUrl <$> field <*> field <*> field