diff options
| -rw-r--r-- | src/Lib.hs | 5 | ||||
| -rw-r--r-- | src/Plugin.hs | 4 |
2 files changed, 5 insertions, 4 deletions
@@ -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 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}$" |