From bee8faa9804d37e3912e3704dbf03fc1c02eeb84 Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sun, 30 Jul 2017 18:03:11 +0200
Subject: performPlugin: Use the correct match string

I had been using the regex instead of the match result. Do another regex
match to correctly output our SHA instead of the match regex.

I had tried putting the `=~` match in another function and using it from
here and in the list comprehension in `matchPlugins`, but then found out
that, of course, the return types didn't agree (`matchPlugins` needs a
`Bool` and `performPlugin` needs a `String`). Ended up dispensing with
the extra function and doing the match both times instead.
---
 src/Plugin.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Plugin.hs')

diff --git a/src/Plugin.hs b/src/Plugin.hs
index 95f2461..e25a1dc 100644
--- a/src/Plugin.hs
+++ b/src/Plugin.hs
@@ -29,8 +29,8 @@ firstPlugin []     = Nothing
 firstPlugin (p:ps) = Just p
 
 -- TODO: Make a type for the `perform` function
-performPlugin :: Plugin -> String
-performPlugin p = perform p $ matchRegex p
+performPlugin :: Plugin -> String -> String
+performPlugin p message = perform p $ message =~ matchRegex p
 
 gitHubCommit = Plugin
     { matchRegex = "^[0-9a-f]{40}$"
-- 
cgit v1.2.3