From 26236652a6cf4ef9c303a57e5251cc51fba8a27b Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Sun, 31 Jan 2010 16:05:23 +0000
Subject: command l -list ; fixed mq to work with the new tabularLinearizes

---
 src/compiler/GF/Quiz.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/compiler/GF/Quiz.hs')

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]
-- 
cgit v1.2.3