diff options
| -rw-r--r-- | app/Main.hs | 5 | ||||
| -rw-r--r-- | app/Process.hs | 1 | ||||
| -rw-r--r-- | 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 () @@ -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, |