hunk ./terminfo.cabal 3 -Version: 0.3.1.1 +Version: 0.3.1.2 hunk ./System/Console/Terminfo/Base.hs 162 + hFlush h hunk ./System/Console/Terminfo/Base.hs 167 +-- NOTE: Currently, the output is checked every time tparm is called. +-- It might be faster to check for padding once in tiGetOutput1. hunk ./System/Console/Terminfo/Base.hs 170 -writeToTerm putc _ (TOCmd numLines s) = tPuts s numLines putc -writeToTerm _ h (TOStr s) = hPutStr h s >> hFlush h +writeToTerm putc h (TOCmd numLines s) + | strHasPadding s = tPuts s numLines putc + | otherwise = hPutStr h s +writeToTerm _ h (TOStr s) = hPutStr h s hunk ./System/Console/Terminfo/Base.hs 270 - peekCString result + if result == nullPtr + then return "" + else peekCString result hunk ./System/Console/Terminfo/Keys.hs 30 + keyEnter, hunk ./System/Console/Terminfo/Keys.hs 75 + +keyEnter :: Capability String +keyEnter = tiGetOutput1 "kent" hunk ./terminfo.cabal 3 -Version: 0.3.1.2 +Version: 0.3.1.3