diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-04-19 10:04:01 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-04-19 10:04:01 +0000 |
| commit | 5f0b09fa08d536e6442e70c1ab66dc9f09b43f85 (patch) | |
| tree | 6675eadafedfc9645d0cc5fe5a3a70147cc6167e /src/GF/UseGrammar | |
| parent | 0ab646fa2f2fa511a93dfea3a071b1daf0745dab (diff) | |
star in morpho analysis
Diffstat (limited to 'src/GF/UseGrammar')
| -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 |