update available reactions (#2466)

This commit is contained in:
Evgeny Poberezkin
2023-05-20 14:42:50 +02:00
committed by GitHub
parent acc4cad082
commit 3be2259068
4 changed files with 5 additions and 40 deletions
+1 -1
View File
@@ -267,7 +267,7 @@ instance FromJSON MREmojiChar where
mrEmojiChar :: Char -> Either String MREmojiChar
mrEmojiChar c
| c `elem` ("👍👎😀🎉😕❤️🚀👀" :: String) = Right $ MREmojiChar c
| c `elem` ("👍👎😀😢❤️🚀" :: String) = Right $ MREmojiChar c
| otherwise = Left "bad emoji"
data FileChunk = FileChunk {chunkNo :: Integer, chunkBytes :: ByteString} | FileChunkCancel