[commit: haskeline] master: Fix guessing window size from terminfo. (9d04766)

[Ian Lynagh]

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 <judah.jacobson at gmail.com>
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)]