msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests 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 ::