GitHub/gf-core
1
0 Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-10-28 17:33:18 -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 committed 2022-12-10 20:17:10 +01:00
1 parent 00227014b8
commit a3111f3be7
1 file changed
+1 -1
Download Patch File Download Diff File Expand all files Collapse all files
src/compiler/GF/Interactive.hs
+1 -1
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)