From 65668579e840b1587f7b70d0e44e11bc8ba08369 Mon Sep 17 00:00:00 2001 From: defanor Date: Fri, 23 Feb 2018 23:48:35 +0300 Subject: Call streamGetObject with withNew --- Redland/Util.hs | 4 ++-- redland.cabal | 2 +- 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 -- cgit v1.2.3