From 26dabeab9b692ee14cbee7ae41ed7a09d6072637 Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Thu, 20 Dec 2018 10:52:45 +0100 Subject: save the original concrete category in BracketedString --- src/runtime/haskell/PGF/Forest.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/runtime/haskell/PGF/Forest.hs') diff --git a/src/runtime/haskell/PGF/Forest.hs b/src/runtime/haskell/PGF/Forest.hs index d487f43d6..ee15e2cf9 100644 --- a/src/runtime/haskell/PGF/Forest.hs +++ b/src/runtime/haskell/PGF/Forest.hs @@ -58,8 +58,8 @@ bracketedTokn :: Maybe Int -> Forest -> BracketedTokn bracketedTokn dp f@(Forest abs cnc forest root) = case [computeSeq isTrusted seq (map (render forest) args) | (seq,args) <- root] of ([bs@(Bracket_{})]:_) -> bs - (bss:_) -> Bracket_ wildCId 0 0 wildCId [] bss - [] -> Bracket_ wildCId 0 0 wildCId [] [] + (bss:_) -> Bracket_ wildCId 0 0 0 wildCId [] bss + [] -> Bracket_ wildCId 0 0 0 wildCId [] [] where isTrusted (_,fid) = IntSet.member fid trusted -- cgit v1.2.3