GitHub/gf-core
1
0 Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-11-03 19:15:26 -07:00
Code Issues Packages Projects Releases Wiki Activity

forgot to update the testsuite

Browse Source
This commit is contained in:
krangelov committed 2021-09-16 11:31:09 +02:00
1 parent c4fee30baf
commit 56d47ad561
1 file changed
+2 -2
Download Patch File Download Diff File Expand all files Collapse all files
src/runtime/haskell/tests/transactions.hs
+2 -2
View File
@@ -8,9 +8,9 @@ main = do
gr1 <- readPGF "tests/basic.pgf"
let Just ty = readType "(N -> N) -> P (s z)"
gr2 <- modifyPGF gr1 (createFunction "foo" ty pi >>
gr2 <- modifyPGF gr1 (createFunction "foo" ty 0 pi >>
createCategory "Q" [(Explicit,"x",ty)] pi)
gr3 <- branchPGF gr1 "bar_branch" (createFunction "bar" ty pi >>
gr3 <- branchPGF gr1 "bar_branch" (createFunction "bar" ty 0 pi >>
createCategory "R" [(Explicit,"x",ty)] pi)
Just gr4 <- checkoutPGF gr1 "master"