Repository : ssh://darcs.haskell.org//srv/darcs/packages/haskeline On branch : master
http://hackage.haskell.org/trac/ghc/changeset/768c467d80130c94cceea79708ba0b66e1c2ebfd >--------------------------------------------------------------- commit 768c467d80130c94cceea79708ba0b66e1c2ebfd Author: Judah Jacobson <[email protected]> Date: Sat Dec 11 07:13:20 2010 +0000 Fix issues with the "#81 Attempts" patch. >--------------------------------------------------------------- System/Console/Haskeline/Backend/Win32.hsc | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/System/Console/Haskeline/Backend/Win32.hsc b/System/Console/Haskeline/Backend/Win32.hsc index b4303cb..bdc7bab 100644 --- a/System/Console/Haskeline/Backend/Win32.hsc +++ b/System/Console/Haskeline/Backend/Win32.hsc @@ -290,8 +290,8 @@ movePosRight str = do where moveCoord _ p [] = p moveCoord w p cs = case splitAtWidth (w - coordX p) cs of - (_,[],len) | len < w -- stayed on same line - -> Coord { coordY = coordY p + 1, + (_,[],len) | len < w - coordX p -- stayed on same line + -> Coord { coordY = coordY p, coordX = coordX p + len } (_,cs',_) -- moved to next line @@ -311,7 +311,7 @@ movePosLeft str = do -> Coord { coordY = coordY p, coordX = coordX p - len } - (_,cs',_) -- moved to previous line + (_,_:cs',_) -- moved to previous line -> moveCoord w Coord { coordY = coordY p - 1, coordX = w-1 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
