GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -06:00
Code Issues Packages Projects Releases Wiki 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 :: ConcName -> Transaction Concr () -> Transaction PGF ()
alterConcrete name (Transaction f) = Transaction $ \c_db c_abstr c_revision c_exn -> alterConcrete name (Transaction f) = Transaction $ \c_db c_abstr c_revision c_exn ->
withText name $ \c_name -> do 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 f c_db c_abstr c_concr_revision c_exn
dropConcrete :: ConcName -> Transaction PGF () dropConcrete :: ConcName -> Transaction PGF ()