diff options
Diffstat (limited to 'src/GF/API.hs')
| -rw-r--r-- | src/GF/API.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/GF/API.hs b/src/GF/API.hs index a9f836422..77bd71849 100644 --- a/src/GF/API.hs +++ b/src/GF/API.hs @@ -200,10 +200,12 @@ optLinearizeTree opts0 gr t = case getOptVal opts transferFun of | oElem showRecord opts = liftM prt . linearizeNoMark g c | oElem tableLin opts = liftM (unlines . map untok . prLinTable) . allLinTables g c - | otherwise = return . untok . linTree2string mk g c + | oElem showAll opts = return . unlines . linTree2strings mk g c + | otherwise = return . unlines . optIntOrOne . linTree2strings mk g c g = grammar gr c = cncId gr untok = customOrDefault opts useUntokenizer customUntokenizer gr + optIntOrOne = take $ optIntOrN opts flagNumber 1 {- ---- untoksl . lin where |