diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2014-01-24 08:34:55 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2014-01-24 08:34:55 +0000 |
| commit | 55ea6cbec556b9c7ffef3f6849c56f9714cb3cc0 (patch) | |
| tree | d294a8c1b96779311b7aedfb444bae7fc1df7739 /src/runtime | |
| parent | 77150e0b279c610d47ff129aa36d6506004e354a (diff) | |
fix in the Haskell runtime
Diffstat (limited to 'src/runtime')
| -rw-r--r-- | src/runtime/haskell/PGF/Parse.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/runtime/haskell/PGF/Parse.hs b/src/runtime/haskell/PGF/Parse.hs index 3f5dc313a..0ab1ad9fb 100644 --- a/src/runtime/haskell/PGF/Parse.hs +++ b/src/runtime/haskell/PGF/Parse.hs @@ -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
|