From 5f0b09fa08d536e6442e70c1ab66dc9f09b43f85 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 19 Apr 2006 10:04:01 +0000 Subject: [PATCH] star in morpho analysis --- src/GF/UseGrammar/Morphology.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/GF/UseGrammar/Morphology.hs b/src/GF/UseGrammar/Morphology.hs index 2d96ecd77..313aa6fbc 100644 --- a/src/GF/UseGrammar/Morphology.hs +++ b/src/GF/UseGrammar/Morphology.hs @@ -96,7 +96,9 @@ prMorpho :: Morpho -> String prMorpho = unlines . map prMorphoAnalysis . collapse prMorphoAnalysis :: (String,[String]) -> String -prMorphoAnalysis (w,fs) = unlines (w:fs) +prMorphoAnalysis (w,fs0) = + let fs = filter (not . null) fs0 in + if null fs then w ++++ "*" else unlines (w:fs) prMorphoAnalysisShort :: (String,[String]) -> String prMorphoAnalysisShort (w,fs) = prBracket (w' ++ prTList "/" fs) where