truncateChatMessage :: [a] -> [a]
truncateChatMessage message = take 254 message
truncateChatMessage :: [a] -> [a]
truncateChatMessage message = take 254 message
truncateChatMessage message = take 254 message