From 36184551980eb59b67189c2a782c7f4461285d23 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Tue, 31 Mar 2026 12:22:12 +0200
Subject: replace lynx by hypothetical show command

---
 src/Much/TreeView.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'src/Much')

diff --git a/src/Much/TreeView.hs b/src/Much/TreeView.hs
index 3e94c8a..eb2263c 100644
--- a/src/Much/TreeView.hs
+++ b/src/Much/TreeView.hs
@@ -16,6 +16,7 @@ module Much.TreeView
     ) where
 
 import Data.ByteString.Lazy.Char8 qualified as LBS8
+import Data.CaseInsensitive qualified as CI
 import Data.Text qualified as T
 import Data.Tree
 import Much.TreeView.Types as Export
@@ -148,10 +149,8 @@ loadSubForest = \case
           Left e -> return $ Left $ show e
           Right html ->
             readProcessWithExitCode
-                "lynx"
-                [ "-dump"
-                , "-nomargins"
-                , "-stdin"
+                "show"
+                [ T.unpack (CI.foldedCase (partContentType mp))
                 ]
                 html
               >>= \case
-- 
cgit v1.2.3