From 66663c0610dd33465cdb95dfc66e44a973088c43 Mon Sep 17 00:00:00 2001 From: defanor Date: Fri, 23 Feb 2018 23:52:03 +0300 Subject: Get rid of DeepSeq That was a hacky fix, now it's fixed in the redland bindings. --- Text/Pandoc/Readers/RDF.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'Text/Pandoc') diff --git a/Text/Pandoc/Readers/RDF.hs b/Text/Pandoc/Readers/RDF.hs index 0d9aa26..e2b21d0 100644 --- a/Text/Pandoc/Readers/RDF.hs +++ b/Text/Pandoc/Readers/RDF.hs @@ -48,7 +48,6 @@ import System.Directory ( getXdgDirectory, XdgDirectory(..) , createDirectoryIfMissing ) import Control.Monad (zipWithM) import Data.Maybe (mapMaybe) -import Control.DeepSeq import Redland @@ -159,8 +158,7 @@ readRDF bu rf t = do createDirectoryIfMissing True cacheDir withWSMU "hashes" [("hash-type", "bdb"), ("dir", cacheDir)] "rdf-cache" "" (uriToString id bu "") $ \world' _ model' _ -> do - r <- mapM (readTriple (world', model')) $ prepareTriples triples - r `deepseq` pure r + mapM (readTriple (world', model')) $ prepareTriples triples readTriple :: ( ForeignPtr RedlandWorld , ForeignPtr RedlandModel) -> Triple -- cgit v1.2.3