Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Original file line number Diff line number Diff line change
@@ -0,0 +1,23 @@
<!--
A new scriv changelog fragment.

Uncomment the section that is right (remove the HTML comment wrapper).
For top level release notes, leave all the headers commented out.
-->

### Patch

- Fix leaked handles on uncommitted forkers in V2 LedgerDB.

<!--
### Non-Breaking

- A bullet item for the Non-Breaking category.

-->
<!--
### Breaking

- A bullet item for the Breaking category.

-->
Original file line number Diff line number Diff line change
Expand Up @@ -143,7 +143,9 @@ implForkerPush env newState =

let lseq' = extend (StateRef st newtbs) lseq

atomically $ writeTVar (foeLedgerSeq env) lseq'
atomically $ do
writeTVar (foeLedgerSeq env) lseq'
modifyTVar (foeCleanup env) (>> close newtbs)
)

implForkerCommit ::
Expand Down
Loading