From ddd7ab98d8335efcf7904534f38ebf04d3eee732 Mon Sep 17 00:00:00 2001 From: krasimir Date: Mon, 2 Feb 2009 09:56:02 +0000 Subject: [PATCH] tabularLinearize should always generate label names --- src/PGF/ShowLinearize.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/PGF/ShowLinearize.hs b/src/PGF/ShowLinearize.hs index 26fddd6c2..b5fab007a 100644 --- a/src/PGF/ShowLinearize.hs +++ b/src/PGF/ShowLinearize.hs @@ -70,9 +70,9 @@ tableLinearize unlex pgf lang = unlines . map pr . tabularLinearize pgf lang whe tabularLinearize :: PGF -> CId -> Tree -> [(String,[String])] tabularLinearize pgf lang = branches . recLinearize pgf lang where branches r = case r of - RR fs -> [( b,s) | (lab,t) <- fs, (b,s) <- branches t] + RR fs -> [(lab +++ b,s) | (lab,t) <- fs, (b,s) <- branches t] RT fs -> [(lab +++ b,s) | (lab,t) <- fs, (b,s) <- branches t] - RFV rs -> [([], ss) | (_,ss) <- concatMap branches rs] + RFV rs -> concatMap branches rs RS s -> [([], [s])] RCon _ -> []