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