use blessings 2v1.2.0

1 files changed, 4 insertions, 3 deletions

diff --git a/test5.hs b/test5.hs
index c667336..aa61776 100644
--- a/test5.hs
+++ b/test5.hs
@@ -17,7 +17,8 @@ import qualified Notmuch
 import qualified Notmuch.Message as Notmuch
 import qualified Notmuch.SearchResult as Notmuch
 import qualified System.Console.Terminal.Size as Term
-import Blessings
+import Blessings.String (Blessings(Plain,SGR),pp)
+import qualified Blessings.Internal as Blessings
 import Control.Concurrent
 import Control.Exception
 import Control.Monad
@@ -235,7 +236,7 @@ render q@State{..} =
 render0 :: State -> [Blessings String]
 render0 _q@State{..} = do
     let buffer =
-            map (blessingsTake screenWidth . blessingsDrop xoffset) $
+            map (Blessings.take screenWidth . Blessings.drop xoffset) $
             take screenHeight $
             headBuffer ++ drop yoffset treeBuffer
     buffer ++ take (screenHeight - length buffer) (repeat "~")
@@ -248,7 +249,7 @@ redraw q@State{..} = do
   where
     sub x x' c = if c == x then x' else c
     eraseRight s =
-        if len s < screenWidth
+        if Blessings.length s < screenWidth
             then s <> "\ESC[K"
             else s