diff options
author | defanor <defanor@uberspace.net> | 2018-02-23 23:48:35 +0300 |
---|---|---|
committer | defanor <defanor@uberspace.net> | 2018-02-23 23:48:35 +0300 |
commit | 65668579e840b1587f7b70d0e44e11bc8ba08369 (patch) | |
tree | 3cae40437ed13e7d06a7b93f15583a9f30b7bbe8 | |
parent | dbb9e6be6cb4bb4fdc465260bb435a8297ae666e (diff) |
Call streamGetObject with withNew
-rw-r--r-- | Redland/Util.hs | 4 | ||||
-rw-r--r-- | 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 |