From 9d529a570e84540fafde36d0e0adba87a610c126 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Tue, 23 Feb 2021 20:45:49 +0100
Subject: modernize calls to blessings
---
src/Main.hs | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
(limited to 'src/Main.hs')
diff --git a/src/Main.hs b/src/Main.hs
index c07053f..9725d7a 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -29,6 +29,8 @@ import Buffer
import Process
import Scanner
import Blessings
+import qualified Blessings.Internal as Blessings
+import Blessings.String ()
data Mode
@@ -393,7 +395,7 @@ renderRight :: Blessings String -> IO ()
renderRight a = do
saveCursor
moveCursorRight 1024 -- XXX obviously, this is a hack..^_^
- moveCursorLeft $ len a - 1
+ moveCursorLeft $ Blessings.length a - 1
renderLeft a
unsaveCursor
@@ -417,12 +419,12 @@ spans p xs = f_r (span p_r xs)
f_l (as, bs) = Left as : if null bs then [] else f_r (span p_r bs)
-gaudySpans :: [Int] -> (Char -> Bool) -> String -> Blessings String
+gaudySpans :: Pm -> (Char -> Bool) -> String -> Blessings String
gaudySpans c p =
mconcat . map (either (SGR c . Plain . lit) Plain) . spans p
-gaudySpecial :: [Int] -> String -> Blessings String
+gaudySpecial :: Pm -> String -> Blessings String
gaudySpecial c = gaudySpans c (not . isPrint)
--
cgit v1.2.3