From 459ede29282b268d60a3ef73a54098df81816b60 Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sun, 30 Jul 2017 19:40:25 +0200
Subject: 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.
---
 src/Plugin.hs              |  9 +--------
 src/Plugin/GitHubCommit.hs | 13 +++++++++++++
 2 files changed, 14 insertions(+), 8 deletions(-)
 create mode 100644 src/Plugin/GitHubCommit.hs

(limited to 'src')

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
-- 
cgit v1.2.3