diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Plugin.hs | 9 | ||||
| -rw-r--r-- | src/Plugin/GitHubCommit.hs | 13 |
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 |