diff options
| author | krasimir <krasimir@chalmers.se> | 2010-05-01 21:02:32 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-05-01 21:02:32 +0000 |
| commit | 4e85f8ada33b2b7fb5f06750ef5f1d9ac81130b2 (patch) | |
| tree | 472ae693f4032b9d9dcb9361fd9235754907be2b /src/runtime/haskell/PGF/Forest.hs | |
| parent | 029fbec8f361d0978fd595707c393fb51d289ecb (diff) | |
refactor 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 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
|