use html-conduit for parsing

src/Text/Html.hs

@@ -1,6 +1,6 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# language LambdaCase #-}
-{-# options_ghc -Wno-unused-imports -Wno-unused-top-binds #-}
+-- {-# options_ghc -Wno-unused-imports -Wno-unused-top-binds #-}
 module Text.Html (loadAndProcess, loadDoc) where
 
 import Control.Applicative (Alternative (..))
@@ -23,13 +23,16 @@ import Text.Megaparsec.Error (ParseErrorBundle (..), errorBundlePretty)
 import System.Directory (makeAbsolute)
 -- filepath
 import System.FilePath.Posix (takeExtension, (</>))
+-- html-conduit
+import Text.HTML.DOM (parseLT)
 
 -- text
 import qualified Data.Text as T (Text, all, pack, unpack)
 import qualified Data.Text.IO as T (putStrLn)
 import qualified Data.Text.Lazy as TL (Text, toStrict, fromStrict)
 import qualified Data.Text.Lazy.IO as TL (readFile, putStrLn)
 
+-- xml-conduit
 import Text.XML (ParseSettings, Document(..), Element(..), Node(..), parseText, def, renderText, psDecodeEntities, decodeHtmlEntities, rsPretty, rsXMLDeclaration)
 import Data.XML.Types (Name(..))
 
@@ -82,17 +85,19 @@ loadElementH cfg inPaths fp = do
   expand cfg inPaths decSetts el
 
 loadDoc :: FilePath -> IO Document
-loadDoc fp = do
-  tl0 <- TL.readFile fp
-  let
-    decSetts = def { psDecodeEntities = decodeHtmlEntities }
-  case parseText decSetts tl0 of
-    Right hdoc -> pure hdoc
-    Left e -> error $ unwords ["Error while attempting to parse", fp, ":", show e]
-
-data Error =
-  EFileNotFound FilePath
-  | ECannotParseFilePath SomeException FilePath
+loadDoc fp = parseLT <$> TL.readFile fp
+  -- tl0 <- TL.readFile fp
+  -- pure $ parseLT tl0
+  -- let
+  --   decSetts = def { psDecodeEntities = decodeHtmlEntities }
+  -- case parseText decSetts tl0 of
+  -- case parseLT tl0 of
+  --   Right hdoc -> pure hdoc
+  --   Left e -> error $ unwords ["Error while attempting to parse", fp, ":", show e]
+
+-- data Error =
+--   EFileNotFound FilePath
+--   | ECannotParseFilePath SomeException FilePath
 
 
 data Match =

twelve.cabal

@@ -1,5 +1,5 @@
 name:                twelve
-version:             0.2.0.0
+version:             0.3.0.0
 synopsis:            Like 11ty, but this goes up to 12
 description:         twelve is a simple build tool for composing static websites from templates. Please see README for full details
 homepage:            https://github.com/ocramz/twelve
@@ -34,6 +34,7 @@ library
                      , file-embed
                      , filepath
                      , githash
+                     , html-conduit
                      , http-types
                      , megaparsec
                      , mtl