aboutsummaryrefslogtreecommitdiff
path: root/src/Server.hs
diff options
context:
space:
mode:
authorIgor Pashev <pashev.igor@gmail.com>2017-05-20 21:50:58 +0300
committerIgor Pashev <pashev.igor@gmail.com>2017-05-20 21:51:01 +0300
commitc87a64b472ef770115daf7ee56c84ce7ea04c739 (patch)
tree3c9abdd2324cefce17e0fd64e51d982336f4b14f /src/Server.hs
parent76c744963a3e7cbfc2f7d3aa8a3321c3eb200aa2 (diff)
downloadmywatch-c87a64b472ef770115daf7ee56c84ce7ea04c739.tar.gz
η-reduction
See https://wiki.haskell.org/Eta_conversion
Diffstat (limited to 'src/Server.hs')
-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