diff options
| -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 |