From 8afbe1f7df24034dd16fdf2e89b0665b2318ae2a Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 19 Feb 2019 11:39:51 +0100 Subject: Stuff... --- interactive-edit-lens/src/Interact.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'interactive-edit-lens/src/Interact.hs') diff --git a/interactive-edit-lens/src/Interact.hs b/interactive-edit-lens/src/Interact.hs index 3aab5c2..0074e86 100644 --- a/interactive-edit-lens/src/Interact.hs +++ b/interactive-edit-lens/src/Interact.hs @@ -146,9 +146,9 @@ interactiveEditLens' cfg@InteractConfig{..} (moveSplit isSpace $ \(c, (l, _)) -> if any isSpace (c l) || Seq.null (c l) then (pred l, 0) else (l - 2, 0)) EvKey KRight [MCtrl] -> continue $ st &?~ doMove (moveSplit isSpace $ \(c, (l, _)) -> if any isSpace $ c l then (succ l, 0) else (l + 2, 0)) - EvKey KUp [MCtrl] -> continue $ st &?~ doMove + EvKey KUp [] -> continue $ st &?~ doMove (moveSplit (== '\n') $ \(c, (l, p)) -> if any (== '\n') (c l) || Seq.null (c l) then (pred l, p) else (l - 2, p)) - EvKey KDown [MCtrl] -> continue $ st &?~ doMove + EvKey KDown [] -> continue $ st &?~ doMove (moveSplit (== '\n') $ \(c, (l, p)) -> if any (== '\n') (c l) then (succ l, p) else (l + 2, p)) EvKey KLeft [] -> continue $ st &?~ doMove moveLeft EvKey KRight [] -> continue $ st &?~ doMove moveRight -- cgit v1.2.3