diff options
| author | aarne <aarne@chalmers.se> | 2009-12-13 18:51:20 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2009-12-13 18:51:20 +0000 |
| commit | b5a541e65a439969da86cf5f29e2eb60af1e5504 (patch) | |
| tree | ad2d3ad4088737d0f1e0df367908588da7a45025 | |
| parent | 5804db98167c118f910a3b76d42b2566ed347d51 (diff) | |
unicode encoding in quiz questions fixed
| -rw-r--r-- | src/GF/Quiz.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Quiz.hs b/src/GF/Quiz.hs index ad5f2818c..52d9dee6b 100644 --- a/src/GF/Quiz.hs +++ b/src/GF/Quiz.hs @@ -35,7 +35,7 @@ import Data.List (nub) mkQuiz :: Encoding -> String -> [(String,[String])] -> IO () 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 translationList :: |