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.

1 files changed, 3 insertions, 2 deletions

diff --git a/src/Lib.hs b/src/Lib.hs
index a27ff99..abb8fe7 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -8,5 +8,6 @@ import Plugin
 
 someFunc :: IO ()
 someFunc = do
-    let Just plugin = realMatchPlugin "75ac7b18a009ffe7a77a17a61d95c01395f36b44"
-    putStrLn $ performPlugin plugin
+    let message = "75ac7b18a009ffe7a77a17a61d95c01395f36b44"
+        Just plugin = realMatchPlugin message
+    putStrLn $ performPlugin plugin message