diff options
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 5 |
1 files changed, 2 insertions, 3 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 |