better output for 'pg -fullform'

This commit is contained in:
Krasimir Angelov
2022-01-28 17:32:40 +01:00
parent 78b462c607
commit f0045e910e

View File

@@ -897,7 +897,7 @@ prAllWords concr =
unwords [w | (w,_) <- fullFormLexicon concr]
prMorphoAnalysis (w,lps) =
unlines (w:[l ++ " : " ++ p ++ show prob | (l,p,prob) <- lps])
unlines (w:[l ++ " : " ++ p ++ " " ++ show prob | (l,p,prob) <- lps])
viewGraphviz :: String -> String -> String -> [String] -> SIO CommandOutput
viewGraphviz view format name grphs = do