diff options
Diffstat (limited to 'src-3.0/GF/Grammar/API.hs')
| -rw-r--r-- | src-3.0/GF/Grammar/API.hs | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/src-3.0/GF/Grammar/API.hs b/src-3.0/GF/Grammar/API.hs index 6d14fbf3c..182b5e94e 100644 --- a/src-3.0/GF/Grammar/API.hs +++ b/src-3.0/GF/Grammar/API.hs @@ -6,7 +6,8 @@ module GF.Grammar.API ( checkTerm, computeTerm, showTerm, - TermPrintStyle(..) + TermPrintStyle(..), + pTermPrintStyle ) where import GF.Source.ParGF @@ -65,3 +66,10 @@ showTerm style t = data TermPrintStyle = TermPrintTable | TermPrintAll | TermPrintUnqual | TermPrintDefault deriving (Show,Eq) +pTermPrintStyle s = case s of + "table" -> TermPrintTable + "all" -> TermPrintAll + "unqual" -> TermPrintUnqual + _ -> TermPrintDefault + + |