diff options
| author | tv <tv@krebsco.de> | 2026-03-09 15:06:14 +0100 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2026-03-09 15:06:14 +0100 |
| commit | 9148d3058d833de2d4445a01a02f5ff845722662 (patch) | |
| tree | 021b40d470ad97ef4b44529ae9f89c98580901a3 /app | |
| parent | 56793213170bdb3fb7f8795cd198148332870af1 (diff) | |
blessings: 2 -> 3
Diffstat (limited to 'app')
| -rw-r--r-- | app/Main.hs | 5 | ||||
| -rw-r--r-- | app/Process.hs | 1 |
2 files changed, 2 insertions, 4 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 () |