diff options
| author | Igor Pashev <pashev.igor@gmail.com> | 2017-05-20 21:50:58 +0300 |
|---|---|---|
| committer | Igor Pashev <pashev.igor@gmail.com> | 2017-05-20 21:51:01 +0300 |
| commit | c87a64b472ef770115daf7ee56c84ce7ea04c739 (patch) | |
| tree | 3c9abdd2324cefce17e0fd64e51d982336f4b14f | |
| parent | 76c744963a3e7cbfc2f7d3aa8a3321c3eb200aa2 (diff) | |
| download | mywatch-c87a64b472ef770115daf7ee56c84ce7ea04c739.tar.gz | |
η-reduction
See https://wiki.haskell.org/Eta_conversion
| -rw-r--r-- | src/Server.hs | 2 |
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 |