From 4e85f8ada33b2b7fb5f06750ef5f1d9ac81130b2 Mon Sep 17 00:00:00 2001 From: krasimir Date: Sat, 1 May 2010 21:02:32 +0000 Subject: refactor 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 3dd996aa6..428ee276a 100644 --- a/src/runtime/haskell/PGF/Forest.hs +++ b/src/runtime/haskell/PGF/Forest.hs @@ -51,7 +51,7 @@ linearizeWithBrackets = head . snd . untokn "" . bracketedTokn bracketedTokn :: Forest -> BracketedTokn bracketedTokn (Forest abs cnc forest root label) = let (fid,cat,lin) = render IntMap.empty root - in Bracket_ fid label cat (lin ! label) + in Bracket_ cat fid label (lin ! label) where trusted = trustedSpots IntSet.empty root @@ -94,7 +94,7 @@ bracketedTokn (Forest abs cnc forest root label) = getArg d r | not (null arg_lin) && IntSet.member fid trusted - = [Bracket_ fid r cat arg_lin] + = [Bracket_ cat fid r arg_lin] | otherwise = arg_lin where arg_lin = lin ! r -- cgit v1.2.3