From fdeb641fde5f82c3ad617c5c801ab40955fe62af Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Thu, 19 Mar 2026 22:09:58 +0100
Subject: blessings: 2 -> 3

---
 app/much.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'app')

diff --git a/app/much.hs b/app/much.hs
index 87d73c0..aba074c 100644
--- a/app/much.hs
+++ b/app/much.hs
@@ -3,9 +3,9 @@
 
 module Main (main) where
 
-import Blessings.String.WCWidth
 import Data.Default
 import Data.Maybe
+import Data.String (fromString)
 import Data.Tree qualified as Tree
 import Data.Tree.Zipper qualified as Z
 import Much.API qualified
@@ -99,12 +99,12 @@ myKeymap "=" = \q@State{..} ->
 
 -- <F1>
 myKeymap "\ESC[11~" = \q@State{..} ->
-    return q { flashMessage = Plain $ show $ treeViewId $ Z.label cursor }
+    return q { flashMessage = fromString $ show $ treeViewId $ Z.label cursor }
 
 -- <F2>
 myKeymap "\ESC[12~" = \q@State{..} ->
     return q { flashMessage =
-                  Plain $
+                  fromString $
                   show $
                   maybe Nothing (Just . Notmuch.messageFilename) $
                   getMessage $
@@ -112,8 +112,8 @@ myKeymap "\ESC[12~" = \q@State{..} ->
               }
 
 -- TODO Stuff Vim sends after exit (also there is more...)
-myKeymap "\ESC[2;2R" = \q -> return q { flashMessage = flashMessage q <> " " <> Plain "stupid" }
-myKeymap "\ESC[>85;95;0c" = \q -> return q { flashMessage = flashMessage q <> " " <> Plain "stupid" }
+myKeymap "\ESC[2;2R" = \q -> return q { flashMessage = flashMessage q <> " " <> "stupid" }
+myKeymap "\ESC[>85;95;0c" = \q -> return q { flashMessage = flashMessage q <> " " <> "stupid" }
 
 myKeymap s = displayKey s
 
-- 
cgit v1.2.3