Move GitHub Commit plugin to its own module

Extract the GitHub commit plugin code from "Plugin.hs" into its own
module. Now that we have things more set up and working to a certain
degree, we can split the code out.

2 files changed, 14 insertions, 8 deletions

diff --git a/src/Plugin.hs b/src/Plugin.hs
index 41b0296..da38943 100644
--- a/src/Plugin.hs
+++ b/src/Plugin.hs
@@ -7,6 +7,7 @@ module Plugin
 import Text.Regex.TDFA
 
 import Plugin.Base
+import Plugin.GitHubCommit
 
 matchPlugin :: String -> Maybe Plugin
 matchPlugin message = firstPlugin $ matchPlugins message plugins
@@ -20,14 +21,6 @@ matchPlugins message plugins = [p | p <- plugins, message =~ matchRegex p]
 performPlugin :: Plugin -> String -> String
 performPlugin p message = perform p $ message =~ matchRegex p
 
-gitHubCommit = Plugin
-    { matchRegex = "^[0-9a-f]{40}$"
-    , perform = gitHubCommitAction
-    }
-
-gitHubCommitAction :: PluginAction
-gitHubCommitAction match = "https://github.com/" ++ match
-
 plugins :: [Plugin]
 plugins =
     [ gitHubCommit
diff --git a/src/Plugin/GitHubCommit.hs b/src/Plugin/GitHubCommit.hs
new file mode 100644
index 0000000..24c4831
--- /dev/null
+++ b/src/Plugin/GitHubCommit.hs
@@ -0,0 +1,13 @@
+module Plugin.GitHubCommit
+    ( gitHubCommit
+    ) where
+
+import Plugin.Base
+
+gitHubCommit = Plugin
+    { matchRegex = "^[0-9a-f]{40}$"
+    , perform = gitHubCommitAction
+    }
+
+gitHubCommitAction :: PluginAction
+gitHubCommitAction match = "https://github.com/" ++ match