From f7ce8940fa0d53718eb30bfc7d0ef9320bafc673 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 14 Mar 2007 12:11:18 +0000 Subject: ma -status; sep lines for l -all --- src/GF/API.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/GF/API.hs') diff --git a/src/GF/API.hs b/src/GF/API.hs index f7bd5fc9c..762fa372f 100644 --- a/src/GF/API.hs +++ b/src/GF/API.hs @@ -241,11 +241,11 @@ optLinearizeTree opts0 gr t = case getOptVal opts transferFun of lin mk | oElem showRecord opts = liftM prt . linearizeNoMark g c | oElem tableLin opts = liftM (unlines . map untok . prLinTable True) . - allLinTables g c + allLinTables True g c | oElem showFields opts = liftM (unlines . map untok) . allLinBranchFields g c | oElem showAll opts = liftM (unlines . map untok . prLinTable False) . - allLinTables g c + allLinTables False g c | otherwise = return . unlines . map untok . optIntOrOne . linTree2strings mk g c g = grammar gr c = cncId gr @@ -306,7 +306,8 @@ optParseArgErrMsg opts gr s = do -- | analyses word by word morphoAnalyse :: Options -> GFGrammar -> String -> String -morphoAnalyse opts gr +morphoAnalyse opts gr + | oElem (iOpt "status") opts = morphoTextStatus mo | oElem beShort opts = morphoTextShort mo | otherwise = morphoText mo where -- cgit v1.2.3