summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authordefanor <defanor@uberspace.net>2018-02-23 23:48:35 +0300
committerdefanor <defanor@uberspace.net>2018-02-23 23:48:35 +0300
commit65668579e840b1587f7b70d0e44e11bc8ba08369 (patch)
tree3cae40437ed13e7d06a7b93f15583a9f30b7bbe8
parentdbb9e6be6cb4bb4fdc465260bb435a8297ae666e (diff)
Call streamGetObject with withNew
-rw-r--r--Redland/Util.hs4
-rw-r--r--redland.cabal2
2 files changed, 3 insertions, 3 deletions
diff --git a/Redland/Util.hs b/Redland/Util.hs
index e7ac295..0940cfc 100644
--- a/Redland/Util.hs
+++ b/Redland/Util.hs
@@ -212,8 +212,8 @@ streamToList stream = do
done <- streamEnd stream
if done
then pure []
- else do
- triple <- streamGetObject stream >>= statementToTriple
+ else withNew (streamGetObject stream) $ \statement -> do
+ triple <- statementToTriple statement
next <- streamNext stream
rest <- if next then streamToList stream else pure []
pure (triple : rest)
diff --git a/redland.cabal b/redland.cabal
index a6014cd..9661cf7 100644
--- a/redland.cabal
+++ b/redland.cabal
@@ -1,5 +1,5 @@
name: redland
-version: 0.2.0.0
+version: 0.2.0.1
synopsis: Redland RDF library bindings
description: This package provides low-level and mid-level
Redland RDF library bindings, as well as some