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

fix in the Haskell runtime

Browse Source
This commit is contained in:
kr.angelov
2014-01-24 08:34:55 +00:00
parent 77150e0b27
commit 55ea6cbec5
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/runtime/haskell/PGF/Parse.hs
View File

@@ -387,6 +387,7 @@ process flit ftok cnc (item@(Active j ppos funid seqid args key0):items) acc cha
Just funs -> foldl (\forest funid -> IntMap.insertWith Set.union fid2 (Set.singleton (PApply funid [PArg [] fid1])) forest) forest funs
Nothing -> forest
ftok_ [] item cnt = ftok Map.empty cnt
ftok_ (tok:toks) item cnt =
ftok (Map.singleton tok (TrieMap.singleton toks (Set.singleton item))) cnt