diff options
| author | Teddy Wing | 2017-08-11 00:10:39 +0200 |
|---|---|---|
| committer | Teddy Wing | 2017-08-11 00:10:39 +0200 |
| commit | 1f40af49b66933ccbc52fb1c1ccdaa6c9e80290b (patch) | |
| tree | 18c820edc7ba12861047e09dabe84ebdb1cc4417 /src/Plugin/GitHubCommit.hs | |
| parent | 9af1dc2195e291e58172b3f076afb869a1d3f35b (diff) | |
| download | sorbot-1f40af49b66933ccbc52fb1c1ccdaa6c9e80290b.tar.bz2 | |
gitHubCommitAction: Fix whitespace
The `=` was previously aligned with the function definition below, but
since the pattern match of the lower function definition changed, the
`=`s were no longer aligned.
Seems like it would be weird to move the `=` out and create a bunch of
blank space to align the two `=`s, so moving the function body to the
next line.
Diffstat (limited to 'src/Plugin/GitHubCommit.hs')
| -rw-r--r-- | src/Plugin/GitHubCommit.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Plugin/GitHubCommit.hs b/src/Plugin/GitHubCommit.hs index 33b26df..dc94731 100644 --- a/src/Plugin/GitHubCommit.hs +++ b/src/Plugin/GitHubCommit.hs @@ -26,8 +26,9 @@ gitHubCommitAction message dbConn = do :: IO [RepoUrlRow] return $ respond rs where - respond [] = Left "I couldn't find a repo URL for this channel. \ - \Try `git remote set origin REPO_URL`" + respond [] = + Left "I couldn't find a repo URL for this channel. \ + \Try `git remote set origin REPO_URL`" respond ((RepoUrlRow r):_) = Right $ r ++ "/commits/" ++ M.text message =~ matchRegex gitHubCommit |