ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-11-25 19:22:08 +03:00
Code Issues Projects Releases Wiki Activity

extra improvements

Browse Source
This commit is contained in:
Willem Van Onsem 2021-02-16 09:26:54 +01:00
parent d3a1a5576a
commit f2c58a1870
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Codec/Binary/UTF8/Debug.hs
View File

@ -14,4 +14,4 @@ utf8FromIso :: [Int] -> [Word8]
utf8FromIso = encode . map toEnum
ppUtf8 :: [Int] -> IO ()
ppUtf8 = print . map (($ "") . showHex) . utf8FromIso
ppUtf8 = print . map (`showHex` "") . utf8FromIso

2
src/Graphics/Vty/Input/Loop.hs
View File

@ -137,7 +137,7 @@ readFromDevice = do
threadWaitRead fd
bytesRead <- fdReadBuf fd bufferPtr (fromIntegral maxBytes)
if bytesRead > 0
then (map $ chr . fromIntegral) <$> peekArray (fromIntegral bytesRead) bufferPtr
then map (chr . fromIntegral) <$> peekArray (fromIntegral bytesRead) bufferPtr
else return []
when (not $ null stringRep) $ logMsg $ "input bytes: " ++ show stringRep
return stringRep