msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

release the reference when done with it

Browse Source
This commit is contained in:
Krasimir Angelov
2022-02-07 12:57:19 +01:00
parent 9513c968db
commit fc7c1249b0
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/runtime/haskell/PGF2/Transactions.hsc
View File

@@ -164,7 +164,8 @@ createConcrete name (Transaction f) = Transaction $ \c_db c_abstr c_revision c_e
alterConcrete :: ConcName -> Transaction Concr () -> Transaction PGF ()
alterConcrete name (Transaction f) = Transaction $ \c_db c_abstr c_revision c_exn ->
withText name $ \c_name -> do
c_concr_revision <- pgf_clone_concrete c_db c_revision c_name c_exn
bracket (pgf_clone_concrete c_db c_revision c_name c_exn)
(pgf_free_concr_revision_ c_db) $ \c_concr_revision ->
f c_db c_abstr c_concr_revision c_exn
dropConcrete :: ConcName -> Transaction PGF ()