GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix after the introduction of name patterns

Browse Source
This commit is contained in:
Krasimir Angelov
2022-12-10 20:17:10 +01:00
parent 00227014b8
commit a3111f3be7
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/GF/Interactive.hs
View File

@@ -271,7 +271,7 @@ transactionCommand (CreateFun opts f ty) pgf mb_txnid = do
let prob = realToFrac (valFltOpts "prob" (1/0) opts) let prob = realToFrac (valFltOpts "prob" (1/0) opts)
case checkType pgf ty of case checkType pgf ty of
Left msg -> putStrLnE msg Left msg -> putStrLnE msg
Right ty -> do lift $ updatePGF pgf mb_txnid (createFunction f ty 0 [] prob) Right ty -> do lift $ updatePGF pgf mb_txnid (createFunction f ty 0 [] prob >> return ())
return () return ()
transactionCommand (CreateCat opts c ctxt) pgf mb_txnid = do transactionCommand (CreateCat opts c ctxt) pgf mb_txnid = do
let prob = realToFrac (valFltOpts "prob" (1/0) opts) let prob = realToFrac (valFltOpts "prob" (1/0) opts)