GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-24 03:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

add <*> to Applicative for Transaction

Browse Source
This commit is contained in:
krangelov
2021-09-07 13:31:28 +02:00
parent 31396e46e3
commit 8936e6211e
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -24,6 +24,10 @@ instance Functor Transaction where
instance Applicative Transaction where instance Applicative Transaction where
pure x = Transaction $ \c_db c_revision c_exn -> return x pure x = Transaction $ \c_db c_revision c_exn -> return x
f <*> g = do
f <- f
g <- g
return (f g)
instance Monad Transaction where instance Monad Transaction where
(Transaction f) >>= g = Transaction $ \c_db c_revision c_exn -> do (Transaction f) >>= g = Transaction $ \c_db c_revision c_exn -> do