GitHub/gf-core
1
0 Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-11-04 19:25:27 -07:00
Code Issues Packages Projects Releases Wiki Activity

star in morpho analysis

Browse Source
This commit is contained in:
aarne committed 2006-04-19 10:04:01 +00:00
1 parent 0ab646fa2f
commit 5f0b09fa08
1 file changed
+3 -1
Download Patch File Download Diff File Expand all files Collapse all files
src/GF/UseGrammar/Morphology.hs
+3 -1
View File
@@ -96,7 +96,9 @@ prMorpho :: Morpho -> String
prMorpho = unlines . map prMorphoAnalysis . collapse prMorpho = unlines . map prMorphoAnalysis . collapse
prMorphoAnalysis :: (String,[String]) -> String 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 :: (String,[String]) -> String
prMorphoAnalysisShort (w,fs) = prBracket (w' ++ prTList "/" fs) where prMorphoAnalysisShort (w,fs) = prBracket (w' ++ prTList "/" fs) where