diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/UseGrammar/Morphology.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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 |