From 1f40af49b66933ccbc52fb1c1ccdaa6c9e80290b Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Fri, 11 Aug 2017 00:10:39 +0200
Subject: 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.
---
 src/Plugin/GitHubCommit.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src')

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
 
-- 
cgit v1.2.3