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 -
 hack.cabal     | 3 ++-
 3 files changed, 4 insertions(+), 5 deletions(-)

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 ()
diff --git a/hack.cabal b/hack.cabal
index e114398..a39bceb 100644
--- a/hack.cabal
+++ b/hack.cabal
@@ -22,11 +22,12 @@ Executable hack
 
   default-language: GHC2024
   Build-depends:
-    blessings,
+    blessings >= 3 && <4,
     containers,
     data-default,
     hack,
     lens,
+    mono-traversable,
     mtl,
     old-locale,
     process,
-- 
cgit v1.2.3