mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-21 17:12:50 -06:00
ma -status; sep lines for l -all
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user