diff options
| author | Krasimir Angelov <kr.angelov@gmail.com> | 2018-12-20 10:52:45 +0100 |
|---|---|---|
| committer | Krasimir Angelov <kr.angelov@gmail.com> | 2018-12-20 10:52:45 +0100 |
| commit | 26dabeab9b692ee14cbee7ae41ed7a09d6072637 (patch) | |
| tree | 3c33b3a738ead253a3b4035d7f147ae94003ba83 /src/runtime/haskell/PGF/Forest.hs | |
| parent | 54204d2d95b1ff7d58c4056097fa110f2030f1b2 (diff) | |
save the original concrete category in BracketedString
Diffstat (limited to 'src/runtime/haskell/PGF/Forest.hs')
| -rw-r--r-- | src/runtime/haskell/PGF/Forest.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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
|