GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-11 04:02:52 -06:00
Code Issues Packages Projects Releases Wiki 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 6b536cf07a
commit 6cba6eb004
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 Nothing = "!NULL"
showWord (Just w) = w -- FIXME: convert words to upper case
-- FIXME: could this be the empty string? if so, print as !NULL
showWord (Just w) | null w = "!NULL"
| otherwise = map toUpper w
prFields :: [(String,String)] -> ShowS
prFields fs = unwordsS [ showString l . showChar '=' . showString v | (l,v) <- fs ]