dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-04-29 16:56:59 +00:00
Code Issues Packages Projects Releases Wiki Activity

terminal: allow trailing spaces in terminal commands (e.g., to drag and drop files) (#1467)

Browse Source
This commit is contained in:
Evgeny Poberezkin
2022-11-30 08:25:42 +00:00
committed by GitHub
parent ef1133ee98
commit eb81b62892
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat.hs
+2 -1
View File
@@ -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