diff options
Diffstat (limited to 'Redland/Util.hs')
-rw-r--r-- | Redland/Util.hs | 4 |
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) |