diff --git a/src/Simplex/Chat.hs b/src/Simplex/Chat.hs index f80a940c7c..e1298a264a 100644 --- a/src/Simplex/Chat.hs +++ b/src/Simplex/Chat.hs @@ -27,6 +27,7 @@ import Data.Bifunctor (bimap, first) import qualified Data.ByteString.Base64 as B64 import Data.ByteString.Char8 (ByteString) import qualified Data.ByteString.Char8 as B +import Data.Char (isSpace) import Data.Either (fromRight) import Data.Fixed (div') import Data.Functor (($>)) @@ -227,7 +228,7 @@ execChatCommand s = case parseChatCommand s of Right cmd -> either CRChatCmdError id <$> runExceptT (processChatCommand cmd) parseChatCommand :: ByteString -> Either String ChatCommand -parseChatCommand = A.parseOnly chatCommandP +parseChatCommand = A.parseOnly chatCommandP . B.dropWhileEnd isSpace toView :: ChatMonad m => ChatResponse -> m () toView event = do