Remove pandoc-include-code

srid · May 8, 2020 · d7d98f7 · d7d98f7
1 parent b38ee96
commit d7d98f7
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 8 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Change Log for rib
 
+## UNRELEASED
+
+- Removed pandoc-include-code
+
 ## 0.10.0.0
 
 - API

diff --git a/rib.cabal b/rib.cabal
@@ -51,7 +51,6 @@ common library-common
         mtl >=2.2.2 && <2.3,
         optparse-applicative >= 0.15,
         pandoc >=2.7 && <3,
-        pandoc-include-code >=1.5 && <1.6,
         pandoc-types >=1.20,
         relude >= 0.6 && < 0.7,
         safe-exceptions,

diff --git a/src/Rib/Parser/Pandoc.hs b/src/Rib/Parser/Pandoc.hs
@@ -3,8 +3,6 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE Rank2Types #-}
 {-# LANGUAGE ScopedTypeVariables #-}
-{-# LANGUAGE TypeApplications #-}
-{-# LANGUAGE ViewPatterns #-}
 
 -- | Helpers for working with Pandoc documents
 module Rib.Parser.Pandoc
@@ -36,7 +34,6 @@ import Relude
 import Rib.Shake (ribInputDir)
 import System.FilePath
 import Text.Pandoc
-import Text.Pandoc.Filter.IncludeCode (includeCode)
 import qualified Text.Pandoc.Readers
 import Text.Pandoc.Walk (query, walkM)
 import Text.Pandoc.Writers.Shared (toTableOfContents)
@@ -61,10 +58,7 @@ parse textReader f =
     inputDir <- ribInputDir
     content <- toText <$> readFile' (inputDir </> f)
     fmap (first show) $ runExceptT $ do
-      v' <- runIO' $ textReader readerSettings content
-      liftIO $ walkM includeSources v'
-  where
-    includeSources = includeCode $ Just $ Format "html5"
+      runIO' $ textReader readerSettings content
 
 -- | Render a Pandoc document to HTML
 render :: Monad m => Pandoc -> HtmlT m ()