ma -status; sep lines for l -all

This commit is contained in:
aarne
2007-03-14 12:11:18 +00:00
parent 72c1457bab
commit 0e28aef3b5
9 changed files with 33 additions and 14 deletions

View File

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