From 9939aa23bb11b22be9e570c972be6a898b9df8eb Mon Sep 17 00:00:00 2001 From: defanor Date: Wed, 21 Feb 2018 18:55:51 +0300 Subject: Use Redland bindings instead of rdf4h It's faster, includes a proper triple store with querying, and generally should be more useful. --- Pancake/Reading.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'Pancake') diff --git a/Pancake/Reading.hs b/Pancake/Reading.hs index 3a83e46..0124ec9 100644 --- a/Pancake/Reading.hs +++ b/Pancake/Reading.hs @@ -53,7 +53,6 @@ import Data.Version import qualified Data.Map as M import Control.Monad.IO.Class import System.Directory -import Control.Concurrent.STM.TVar import System.Timeout import Text.Pandoc.Readers.Plain @@ -203,8 +202,6 @@ pEmacsMode = do readDoc :: MonadIO m => Config -- ^ Configuration. - -> TVar (M.Map String String) - -- ^ RDF cache -> BS.ByteString -- ^ Raw document data. -> Maybe String @@ -213,7 +210,7 @@ readDoc :: MonadIO m -- ^ Document URI. -> m (Either P.PandocError P.Pandoc) -- ^ A parsed document. -readDoc c rdfc out dt uri = do +readDoc c out dt uri = do term <- liftIO setupTermFromEnv let (reader, exts) = either (const plain) id $ maybe (Left "no type suggestions") byExtension dt @@ -251,7 +248,7 @@ readDoc c rdfc out dt uri = do html = P.getReader "html" plain = (P.TextReader . const $ readPlain, P.emptyExtensions) gopher = pure (P.TextReader . const $ readGopher, P.emptyExtensions) - rdf = ( P.TextReader . const $ readRDF rdfc uri retrieveRelative + rdf = ( P.TextReader . const $ readRDF uri retrieveRelative , P.emptyExtensions) byExtension' ext = byExtension $ dropWhile (== '.') ext byExtension "md" = P.getReader "markdown" -- cgit v1.2.3