ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-12-01 14:36:27 +03:00
Code Issues Projects Releases Wiki Activity

extend unexpected write size error message

Browse Source
This commit is contained in:
Corey O'Connor 2014-08-14 17:43:48 -07:00
parent 4391f6212b
commit 6be4d65c7e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Graphics/Vty/Output/TerminfoBased.hs
View File

@ -140,7 +140,8 @@ reserveTerminal termName outFd = liftIO $ do
let (fptr, _offset, len) = toForeignPtr outBytes
actualLen <- withForeignPtr fptr $ \ptr -> fdWriteBuf outFd ptr (toEnum len)
when (toEnum len /= actualLen) $ fail $ "Graphics.Vty.Output: outputByteBuffer length "
++ "mismatch. Please report a bug to vty project."
++ "mismatch. " ++ show len ++ " /= " ++ show actualLen
++ " Please report a bug to vty project."
, contextColorCount
= case supportsNoColors terminfoCaps of
False -> case Terminfo.getCapability ti (Terminfo.tiGetNum "colors" ) of