first incarnation of the bracketed string API

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 ->