replace lynx by hypothetical show commandHEADmaster

1 files changed, 3 insertions, 4 deletions

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