From c87a64b472ef770115daf7ee56c84ce7ea04c739 Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Sat, 20 May 2017 21:50:58 +0300
Subject: η-reduction
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

See https://wiki.haskell.org/Eta_conversion
---
 src/Server.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Server.hs b/src/Server.hs
index 6c91a59..40ae921 100644
--- a/src/Server.hs
+++ b/src/Server.hs
@@ -48,7 +48,7 @@ server socketSpec mysqlConnInfo dataDir =
       runSettingsSocket defaultSettings sock =<< app mysql dataDir)
 
 getGroup :: ConnectInfo -> Text
-getGroup ci = decodeUtf8 . getName . fromJust . find isGroup . connectOptions $ ci
+getGroup = decodeUtf8 . getName . fromJust . find isGroup . connectOptions
   where
     isGroup (ReadDefaultGroup _) = True
     isGroup _ = False
-- 
cgit v1.2.3