[commit: haskeline] master: Fix issues with the "#81 Attempts" patch. (768c467)

[Ian Lynagh]

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