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 -3
View File
@@ -4950,11 +4950,9 @@ chatCommandP =
'+' -> '👍'
'-' -> '👎'
')' -> '😀'
'!' -> '🎉'
'?' -> '😕'
',' -> '😢'
'*' -> head "❤️"
'^' -> '🚀'
'%' -> '👀'
c -> c
refChar c = c > ' ' && c /= '#' && c /= '@'
liveMessageP = " live=" *> onOffP <|> pure False
+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