diff options
Diffstat (limited to 'interactive-edit-lens/src/Interact.hs')
| -rw-r--r-- | interactive-edit-lens/src/Interact.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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{..} | |||
| 146 | (moveSplit isSpace $ \(c, (l, _)) -> if any isSpace (c l) || Seq.null (c l) then (pred l, 0) else (l - 2, 0)) | 146 | (moveSplit isSpace $ \(c, (l, _)) -> if any isSpace (c l) || Seq.null (c l) then (pred l, 0) else (l - 2, 0)) |
| 147 | EvKey KRight [MCtrl] -> continue $ st &?~ doMove | 147 | EvKey KRight [MCtrl] -> continue $ st &?~ doMove |
| 148 | (moveSplit isSpace $ \(c, (l, _)) -> if any isSpace $ c l then (succ l, 0) else (l + 2, 0)) | 148 | (moveSplit isSpace $ \(c, (l, _)) -> if any isSpace $ c l then (succ l, 0) else (l + 2, 0)) |
| 149 | EvKey KUp [MCtrl] -> continue $ st &?~ doMove | 149 | EvKey KUp [] -> continue $ st &?~ doMove |
| 150 | (moveSplit (== '\n') $ \(c, (l, p)) -> if any (== '\n') (c l) || Seq.null (c l) then (pred l, p) else (l - 2, p)) | 150 | (moveSplit (== '\n') $ \(c, (l, p)) -> if any (== '\n') (c l) || Seq.null (c l) then (pred l, p) else (l - 2, p)) |
| 151 | EvKey KDown [MCtrl] -> continue $ st &?~ doMove | 151 | EvKey KDown [] -> continue $ st &?~ doMove |
| 152 | (moveSplit (== '\n') $ \(c, (l, p)) -> if any (== '\n') (c l) then (succ l, p) else (l + 2, p)) | 152 | (moveSplit (== '\n') $ \(c, (l, p)) -> if any (== '\n') (c l) then (succ l, p) else (l + 2, p)) |
| 153 | EvKey KLeft [] -> continue $ st &?~ doMove moveLeft | 153 | EvKey KLeft [] -> continue $ st &?~ doMove moveLeft |
| 154 | EvKey KRight [] -> continue $ st &?~ doMove moveRight | 154 | EvKey KRight [] -> continue $ st &?~ doMove moveRight |