getGroupChat, getGroupChatPreviews_ (#233)

This commit is contained in:
Efim Poberezkin
2022-01-29 16:06:08 +04:00
committed by GitHub
parent 7c36ee7955
commit d97a8c1934
11 changed files with 199 additions and 294 deletions
+3
View File
@@ -34,3 +34,6 @@ singleFieldJSON tagModifier =
J.sumEncoding = J.ObjectWithSingleField,
J.omitNothingFields = True
}
eitherToMaybe :: Either a b -> Maybe b
eitherToMaybe = either (const Nothing) Just