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

the parser now use nub instead of nubsort which means that the abstract syntax trees will be returned lazily

Browse Source
This commit is contained in:
kr.angelov
2011-12-19 13:10:33 +00:00
parent d9502fa575
commit 5bbd1d6f73
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/runtime/haskell/PGF/Forest.hs
View File

@@ -121,7 +121,7 @@ getAbsTrees (Forest abs cnc forest root) arg@(PArg _ fid) ty dp =
generateForForest (prove dp) e) emptyMetaStore fid generateForForest (prove dp) e) emptyMetaStore fid
in if null res in if null res
then Left (nub err) then Left (nub err)
else Right (nubsort [e | (_,_,e) <- res]) else Right (nub [e | (_,_,e) <- res])
where where
go rec_ scope_ mb_tty_ (PArg hypos fid) go rec_ scope_ mb_tty_ (PArg hypos fid)
| fid < totalCats cnc = case mb_tty of | fid < totalCats cnc = case mb_tty of