diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-14 15:48:52 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-14 15:48:52 +0000 |
| commit | 7a065580d231a5c181442a63ca04f016e4ca6b7c (patch) | |
| tree | ec1c31deb77bb9a2f546a863233ad0f3add53677 /src-3.0/GF/Grammar/API.hs | |
| parent | 246f307b22fb02ccc2bdd37520fdc330715d44ee (diff) | |
some more command options and documentation
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 + + |