Commit 9d04766d authored by judah's avatar judah
Browse files

Fix guessing window size from terminfo.

parent 9e1f8a95
......@@ -143,8 +143,8 @@ wrapKeypad h term f = (maybeOutput keypadOn >> f)
tinfoLayout :: Terminal -> IO (Maybe Layout)
tinfoLayout term = return $ getCapability term $ do
r <- termColumns
c <- termLines
c <- termColumns
r <- termLines
return Layout {height=r,width=c}
terminfoKeys :: Terminal -> [(String,Key)]
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment