summaryrefslogtreecommitdiff
path: root/Redland/Util.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Redland/Util.hs')
-rw-r--r--Redland/Util.hs4
1 files changed, 2 insertions, 2 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)