f2c58a1 · vty · git.iko.soy

git.iko.soy/vty

extra improvements

commitf2c58a187078ffb766c6bf3d420e418478b39837 authorWillem Van Onsem <vanonsem.willem@gmail.com> dateTue 16 Feb 2021, 09:26 (6 years ago) parentd3a1a55

2 files changed+2−2

compare with master

unifiedsplit

src/Codec/Binary/UTF8/Debug.hs+1−1 src/Graphics/Vty/Input/Loop.hs+1−1

src/Codec/Binary/UTF8/Debug.hs+1−1

@@ -14,4 +14,4 @@ utf8FromIso :: [Int] -> [Word8]

1414utf8FromIso = encode . map toEnum

1515

1616ppUtf8 :: [Int] -> IO ()

17−ppUtf8 = print . map (($ "") . showHex) . utf8FromIso

17+ppUtf8 = print . map (`showHex` "") . utf8FromIso

src/Graphics/Vty/Input/Loop.hs+1−1

@@ -137,7 +137,7 @@ readFromDevice = do

137137 threadWaitRead fd

138138 bytesRead <- fdReadBuf fd bufferPtr (fromIntegral maxBytes)

139139 if bytesRead > 0

140− then (map $ chr . fromIntegral) <$> peekArray (fromIntegral bytesRead) bufferPtr

140+ then map (chr . fromIntegral) <$> peekArray (fromIntegral bytesRead) bufferPtr

141141 else return []

142142 when (not $ null stringRep) $ logMsg $ "input bytes: " ++ show stringRep

143143 return stringRep