aboutsummaryrefslogtreecommitdiffstats
path: root/src/Plugin/GitHubCommit.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Plugin/GitHubCommit.hs')
-rw-r--r--src/Plugin/GitHubCommit.hs11
1 files changed, 7 insertions, 4 deletions
diff --git a/src/Plugin/GitHubCommit.hs b/src/Plugin/GitHubCommit.hs
index cac74a4..8c11a12 100644
--- a/src/Plugin/GitHubCommit.hs
+++ b/src/Plugin/GitHubCommit.hs
@@ -24,12 +24,15 @@ gitHubCommitAction message dbConn = do
\ LIMIT 1"
(Only (M.channel message))
:: IO [RepoUrlRow]
- return $ response rs
+ -- return $ response rs
+ respond rs
where
- response [] = ""
- response ((RepoUrlRow r):rs) =
- r ++ "/commits/" ++ M.text message =~ matchRegex gitHubCommit
+ respond [] = fail "I couldn't find a repo URL for this channel. \
+ \ Try `git remote set origin REPO_URL`"
+ respond ((RepoUrlRow r):rs) =
+ return r ++ "/commits/" ++ M.text message =~ matchRegex gitHubCommit
-- TODO: Make an Either type for plugins to return errors
+-- if empty query result, return an empty error, otherwise return the string
type Id = Int