From f7ce8940fa0d53718eb30bfc7d0ef9320bafc673 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 14 Mar 2007 12:11:18 +0000 Subject: ma -status; sep lines for l -all --- src/GF/Shell/TeachYourself.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GF/Shell/TeachYourself.hs') diff --git a/src/GF/Shell/TeachYourself.hs b/src/GF/Shell/TeachYourself.hs index 5c2170f55..7e5a8afe2 100644 --- a/src/GF/Shell/TeachYourself.hs +++ b/src/GF/Shell/TeachYourself.hs @@ -58,7 +58,7 @@ morphoTrainList opts ig number = do mkOnes gen ts where mkOnes gen (t:ts) = do - psss <- ioeErr $ allLinTables gr cnc t + psss <- ioeErr $ allLinTables True gr cnc t let pss = concat $ map snd $ concat psss let (i,gen') = randomR (0, length pss - 1) gen (ps,ss) <- ioeErr $ pss !? i -- cgit v1.2.3