diff options
| -rw-r--r-- | src/Much/TreeView.hs | 7 |
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 |