diff options
| author | krasimir <krasimir@chalmers.se> | 2009-02-02 09:56:02 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-02-02 09:56:02 +0000 |
| commit | ddd7ab98d8335efcf7904534f38ebf04d3eee732 (patch) | |
| tree | 0b8ff80267e0e9afca7103051614eed09b54f3ab | |
| parent | 7a882b5c36dcc66183f53a31deb1fbef46190a25 (diff) | |
tabularLinearize should always generate label names
| -rw-r--r-- | src/PGF/ShowLinearize.hs | 4 |
1 files 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 _ -> [] |