Repository : ssh://darcs.haskell.org//srv/darcs/packages/haskeline On branch : master
http://hackage.haskell.org/trac/ghc/changeset/9d04766d682bc07ccedca4d7774d1e6001400fbe >--------------------------------------------------------------- commit 9d04766d682bc07ccedca4d7774d1e6001400fbe Author: Judah Jacobson <[email protected]> Date: Sat Jul 21 16:45:43 2012 +0000 Fix guessing window size from terminfo. >--------------------------------------------------------------- System/Console/Haskeline/Backend/Terminfo.hs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/System/Console/Haskeline/Backend/Terminfo.hs b/System/Console/Haskeline/Backend/Terminfo.hs index bcb33b7..d759392 100644 --- a/System/Console/Haskeline/Backend/Terminfo.hs +++ b/System/Console/Haskeline/Backend/Terminfo.hs @@ -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)] _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
