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