From 8460598801b644f323db0b7d7ca879e3acb9215b Mon Sep 17 00:00:00 2001 From: krasimir Date: Fri, 30 Apr 2010 14:36:06 +0000 Subject: first incarnation of the bracketed string API --- src/compiler/GF/Quiz.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/compiler/GF/Quiz.hs') diff --git a/src/compiler/GF/Quiz.hs b/src/compiler/GF/Quiz.hs index 4a4caafc8..2a9b28ccb 100644 --- a/src/compiler/GF/Quiz.hs +++ b/src/compiler/GF/Quiz.hs @@ -46,7 +46,10 @@ translationList mex mprobs pgf ig og typ number = do return $ map mkOne $ ts where mkOne t = (norml (linearize pgf ig t), map (norml . linearize pgf og) (homonyms t)) - homonyms = nub . parse pgf ig typ . linearize pgf ig + homonyms t = + case (fst . parse pgf ig typ . linearize pgf ig) t of + ParseResult ts -> ts + _ -> [] morphologyList :: Maybe Expr -> Maybe Probabilities -> -- cgit v1.2.3