From bcdbb26b8848e0be5e4078c5d7afb64febbaab0f Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 26 May 2008 16:08:31 +0000 Subject: [PATCH] showing labelless table values in cc --- src-3.0/GF/Grammar/PrGrammar.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src-3.0/GF/Grammar/PrGrammar.hs b/src-3.0/GF/Grammar/PrGrammar.hs index 027abe9f3..f605a8de7 100644 --- a/src-3.0/GF/Grammar/PrGrammar.hs +++ b/src-3.0/GF/Grammar/PrGrammar.hs @@ -265,6 +265,8 @@ prTermTabular = pr where [(prt_ lab +++ "." +++ path, str) | (lab,(_,val)) <- rs, (path,str) <- pr val] T _ cs -> [(prt_ lab +++"=>" +++ path, str) | (lab, val) <- cs, (path,str) <- pr val] + V _ cs -> + [("#" ++ show i +++"=>" +++ path, str) | (i,val) <- zip [0..] cs, (path,str) <- pr val] _ -> [([],ps t)] ps t = case t of K s -> s