aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Server.hs2
1 files changed, 1 insertions, 1 deletions
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