From 96433c29146fa79c2e54778dd1c6095d0a54fc1f Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 10 Dec 2010 08:48:26 +0000 Subject: preparing resource api for multilingual documentation --- src/compiler/GF/Grammar/ShowTerm.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/compiler/GF/Grammar') diff --git a/src/compiler/GF/Grammar/ShowTerm.hs b/src/compiler/GF/Grammar/ShowTerm.hs index e039aea79..7fc9ba4bf 100644 --- a/src/compiler/GF/Grammar/ShowTerm.hs +++ b/src/compiler/GF/Grammar/ShowTerm.hs @@ -13,6 +13,7 @@ showTerm gr style q t = render $ case style of TermPrintTable -> vcat [p <+> s | (p,s) <- ppTermTabular gr q t] TermPrintAll -> vcat [ s | (p,s) <- ppTermTabular gr q t] + TermPrintOne -> vcat [ s | (p,s) <- take 1 (ppTermTabular gr q t)] TermPrintDefault -> ppTerm q 0 t ppTermTabular :: SourceGrammar -> TermPrintQual -> Term -> [(Doc,Doc)] @@ -37,4 +38,5 @@ ppTermTabular gr q = pr where data TermPrintStyle = TermPrintTable | TermPrintAll + | TermPrintOne | TermPrintDefault -- cgit v1.2.3