diff options
| author | peb <unknown> | 2005-05-13 11:40:18 +0000 |
|---|---|---|
| committer | peb <unknown> | 2005-05-13 11:40:18 +0000 |
| commit | 20eae7786f420ce02e8043c43c82e31e49c5af72 (patch) | |
| tree | 9396d462d993cfb499703cf7a05ef3a553588c16 /src/GF/Parsing/MCFG/ViaCFG.hs | |
| parent | 0853d7bcfb64b683d7d8b4f6d912717f11bdd4a7 (diff) | |
"Committed_by_peb"
Diffstat (limited to 'src/GF/Parsing/MCFG/ViaCFG.hs')
| -rw-r--r-- | src/GF/Parsing/MCFG/ViaCFG.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Parsing/MCFG/ViaCFG.hs b/src/GF/Parsing/MCFG/ViaCFG.hs index 5007eec20..00fff83e0 100644 --- a/src/GF/Parsing/MCFG/ViaCFG.hs +++ b/src/GF/Parsing/MCFG/ViaCFG.hs @@ -161,7 +161,7 @@ convert _ _ = [] ----------------------------------------------------------------------------------} -- FULKOD ! -nrOfCats :: Eq c => MCFG.Lin c l t -> Int +nrOfCats :: Eq c => MCFG.Lin c l t -> Int nrOfCats (MCFG.Lin l syms) = length $ nub [(c, i) | Cat (c, l, i) <- syms] |