From a3111f3be7c7bb37abfe5db90bf59831ed430418 Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Sat, 10 Dec 2022 20:17:10 +0100 Subject: [PATCH] fix after the introduction of name patterns --- src/compiler/GF/Interactive.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/compiler/GF/Interactive.hs b/src/compiler/GF/Interactive.hs index 635ad2c3c..c0af612b0 100644 --- a/src/compiler/GF/Interactive.hs +++ b/src/compiler/GF/Interactive.hs @@ -271,7 +271,7 @@ transactionCommand (CreateFun opts f ty) pgf mb_txnid = do let prob = realToFrac (valFltOpts "prob" (1/0) opts) case checkType pgf ty of 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 () transactionCommand (CreateCat opts c ctxt) pgf mb_txnid = do let prob = realToFrac (valFltOpts "prob" (1/0) opts)