diff options
| author | aarne <aarne@chalmers.se> | 2010-01-31 16:05:23 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-01-31 16:05:23 +0000 |
| commit | 26236652a6cf4ef9c303a57e5251cc51fba8a27b (patch) | |
| tree | c6c993fb46f44d75efbb4d3939d186667dcda14a /src/compiler/GF/Quiz.hs | |
| parent | be6465a2ebb1aba43433cff29bf5bad6e2065e26 (diff) | |
command l -list ; fixed mq to work with the new tabularLinearizes
Diffstat (limited to 'src/compiler/GF/Quiz.hs')
| -rw-r--r-- | src/compiler/GF/Quiz.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler/GF/Quiz.hs b/src/compiler/GF/Quiz.hs index d0353ff79..6a1e5aae5 100644 --- a/src/compiler/GF/Quiz.hs +++ b/src/compiler/GF/Quiz.hs @@ -52,7 +52,7 @@ morphologyList pgf ig typ number = do ts <- generateRandom pgf typ >>= return . take (max 1 number) gen <- newStdGen let ss = map (tabularLinearizes pgf ig) ts - let size = length (head ss) + let size = length (head (head ss)) let forms = take number $ randomRs (0,size-1) gen return [(snd (head pws0) +++ fst (pws0 !! i), ws) | (pwss@(pws0:_),i) <- zip ss forms, let ws = map (\pws -> snd (pws !! i)) pwss] |