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

Added clipboard.

Browse Source
This commit is contained in:
aarne
2003-10-10 11:35:52 +00:00
parent ce253baf15
commit d0c7566791
5 changed files with 61 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/GF/UseGrammar/Editing.hs
View File

@@ -375,3 +375,11 @@ possibleRefVal gr state val typ = errVal True $ do --- was False
cs <- return [(val, vClos vtyp)] --- eqVal gen val (vClos vtyp) --- only poss cs
return $ possibleConstraints gr cs --- a simple heuristic
possibleTreeVal :: CGrammar -> State -> Tree -> Bool
possibleTreeVal gr state tree = errVal True $ do --- was False
let aval = actVal state
let gval = valTree tree
let gen = actGen state
cs <- return [(aval, gval)] --- eqVal gen val (vClos vtyp) --- only poss cs
return $ possibleConstraints gr cs --- a simple heuristic