diff options
Diffstat (limited to 'src/GF/UseGrammar/Generate.hs')
| -rw-r--r-- | src/GF/UseGrammar/Generate.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/GF/UseGrammar/Generate.hs b/src/GF/UseGrammar/Generate.hs index ee7419fb5..c19435410 100644 --- a/src/GF/UseGrammar/Generate.hs +++ b/src/GF/UseGrammar/Generate.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/04/21 16:23:46 $ --- > CVS $Author: bringert $ --- > CVS $Revision: 1.14 $ +-- > CVS $Date: 2005/05/30 18:39:44 $ +-- > CVS $Author: aarne $ +-- > CVS $Revision: 1.15 $ -- -- Generate all trees of given category and depth. AR 30\/4\/2004 -- @@ -101,7 +101,7 @@ generate gr ifm cat i mn mt = case mt of allTrees = genAll i -- dynamic generation - genAll :: Int -> BinTree (SCat,[[STree]]) + genAll :: Int -> BinTree SCat [[STree]] genAll i = iter i genNext (mapTree (\ (c,_) -> (c,[[]])) gr) iter 0 f tr = tr @@ -126,7 +126,7 @@ generate gr ifm cat i mn mt = case mt of SMeta k -> gen k _ -> [t] -type SGrammar = BinTree (SCat,[SRule]) +type SGrammar = BinTree SCat [SRule] type SIdent = String type SRule = (SFun,SType) type SType = ([SCat],SCat) |