diff options
author | defanor <defanor@uberspace.net> | 2018-02-23 23:52:03 +0300 |
---|---|---|
committer | defanor <defanor@uberspace.net> | 2018-02-23 23:52:03 +0300 |
commit | 66663c0610dd33465cdb95dfc66e44a973088c43 (patch) | |
tree | 6aea0f3b9efd79a7ec118c365e1d771699f291d4 /Text | |
parent | d74daa98ca9fe0ff73f273ba628ce4e728c02cf7 (diff) |
Get rid of DeepSeq
That was a hacky fix, now it's fixed in the redland bindings.
Diffstat (limited to 'Text')
-rw-r--r-- | Text/Pandoc/Readers/RDF.hs | 4 |
1 files changed, 1 insertions, 3 deletions
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 |