From 55ea6cbec556b9c7ffef3f6849c56f9714cb3cc0 Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Fri, 24 Jan 2014 08:34:55 +0000 Subject: [PATCH] fix in the Haskell runtime --- src/runtime/haskell/PGF/Parse.hs | 1 + 1 file changed, 1 insertion(+) 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