From 2a1e02c5a21207cc1aa89b14a540dfa52a8f68c0 Mon Sep 17 00:00:00 2001
From: Daniel Firth <dan.firth@homotopic.tech>
Date: Tue, 21 Feb 2023 11:37:38 +0000
Subject: [PATCH] wip

---
 shell/ShellRC.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/shell/ShellRC.hs b/shell/ShellRC.hs
index 03116e8d..bdcc0aa5 100644
--- a/shell/ShellRC.hs
+++ b/shell/ShellRC.hs
@@ -46,6 +46,7 @@ import qualified Data.Vector               as V
 import qualified Data.Yaml                 as Y
 import qualified Data.Yaml.Pretty          as Y
 import qualified Dhall
+import Data.Monoid
 import           Graphics.Vty.Attributes
 import           Graphics.Vty.Input.Events
 import           Horizon.Spec
@@ -161,8 +162,8 @@ interpretVim = interpret $ \case
   Quit -> embed $ halt
   Yank -> embed $ pure ()
 
-brickEventToVim :: Members '[Vim y, State (Last Char)] r => BrickEvent Text e -> Sem r ()
-brickEventToVim (VtyEvent (EvKey KDown [])) = clear >> moveDown
+brickEventToVim :: Members '[Vim y, State (Maybe Char)] r => BrickEvent Text e -> Sem r ()
+brickEventToVim (VtyEvent (EvKey KDown [])) = moveDown
 brickEventToVim (VtyEvent (EvKey KUp [])) = moveUp
 brickEventToVim (VtyEvent (EvKey (KChar 'j') [])) = moveDown
 brickEventToVim (VtyEvent (EvKey (KChar 'k') [])) = moveUp
-- 
GitLab