GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

unicode encoding in quiz questions fixed

Browse Source
This commit is contained in:
aarne
2009-12-13 18:51:20 +00:00
parent 3bd269ac2e
commit a6d9bc3126
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Quiz.hs
View File

@@ -35,7 +35,7 @@ import Data.List (nub)
mkQuiz :: Encoding -> String -> [(String,[String])] -> IO () mkQuiz :: Encoding -> String -> [(String,[String])] -> IO ()
mkQuiz cod msg tts = do mkQuiz cod msg tts = do
let qas = [ (q, mkAnswer cod as) | (q,as) <- tts] let qas = [ (encodeUnicode cod q, mkAnswer cod as) | (q,as) <- tts]
teachDialogue qas msg teachDialogue qas msg
translationList :: translationList ::