From 9148d3058d833de2d4445a01a02f5ff845722662 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Mon, 9 Mar 2026 15:06:14 +0100
Subject: blessings: 2 -> 3

---
 app/Main.hs    | 5 ++---
 app/Process.hs | 1 -
 2 files changed, 2 insertions(+), 4 deletions(-)

(limited to 'app')

diff --git a/app/Main.hs b/app/Main.hs
index 55f8608..f29b44d 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -10,6 +10,7 @@ import Control.Monad
 import Data.Char
 import Data.IORef
 import Data.List hiding (delete)
+import Data.Sequences qualified as S
 import Numeric (showIntAtBase)
 import System.IO
 --import System.Posix.Signals
@@ -28,8 +29,6 @@ import Hack.Buffer
 import Process
 import Scanner
 import Blessings
-import qualified Blessings.Internal as Blessings
-import Blessings.String ()
 
 
 data Mode
@@ -403,7 +402,7 @@ renderRight :: Blessings String -> IO ()
 renderRight a = do
     saveCursor
     moveCursorRight 1024 -- XXX obviously, this is a hack..^_^
-    moveCursorLeft $ Blessings.length a - 1
+    moveCursorLeft $ S.lengthIndex a - 1
     renderLeft a
     unsaveCursor
 
diff --git a/app/Process.hs b/app/Process.hs
index 8a213b1..c9df073 100644
--- a/app/Process.hs
+++ b/app/Process.hs
@@ -12,7 +12,6 @@ import System.IO
 import System.Process
 
 import Blessings
-import Blessings.String ()
 
 
 type OutputWrapper = IO () -> IO ()
-- 
cgit v1.2.3