msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Make words in SLF language models upper case.

Browse Source
This commit is contained in:
bringert
2005-12-02 12:55:24 +00:00
parent fe01b165f7
commit f59a16876a
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Speech/PrSLF.hs
View File

@@ -74,8 +74,8 @@ prSLF (SLF { slfNodes = ns, slfEdges = es})
showWord :: SLFWord -> String showWord :: SLFWord -> String
showWord Nothing = "!NULL" showWord Nothing = "!NULL"
showWord (Just w) = w -- FIXME: convert words to upper case showWord (Just w) | null w = "!NULL"
-- FIXME: could this be the empty string? if so, print as !NULL | otherwise = map toUpper w
prFields :: [(String,String)] -> ShowS prFields :: [(String,String)] -> ShowS
prFields fs = unwordsS [ showString l . showChar '=' . showString v | (l,v) <- fs ] prFields fs = unwordsS [ showString l . showChar '=' . showString v | (l,v) <- fs ]