From 6be08d77e01ae418634897de62d44b5b1782566a Mon Sep 17 00:00:00 2001 From: krasimir Date: Mon, 23 Feb 2009 14:17:16 +0000 Subject: fix the handling of flag coding --- src/GF/Quiz.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/GF/Quiz.hs') diff --git a/src/GF/Quiz.hs b/src/GF/Quiz.hs index bfdd9a54a..43b037b87 100644 --- a/src/GF/Quiz.hs +++ b/src/GF/Quiz.hs @@ -23,6 +23,7 @@ import PGF.ShowLinearize import GF.Data.Operations import GF.Infra.UseIO +import GF.Infra.Option import GF.Text.Coding import System.Random @@ -33,7 +34,7 @@ import Data.List (nub) -- generic quiz function -mkQuiz :: String -> String -> [(String,[String])] -> IO () +mkQuiz :: Encoding -> String -> [(String,[String])] -> IO () mkQuiz cod msg tts = do let qas = [ (q, mkAnswer cod as) | (q,as) <- tts] teachDialogue qas msg @@ -58,7 +59,7 @@ morphologyList pgf ig typ number = do (pws,i) <- zip ss forms, let (par,ws) = pws !! i] -- | compare answer to the list of right answers, increase score and give feedback -mkAnswer :: String -> [String] -> String -> (Integer, String) +mkAnswer :: Encoding -> [String] -> String -> (Integer, String) mkAnswer cod as s = if (elem (norm s) as) then (1,"Yes.") -- cgit v1.2.3