diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-01-06 12:16:07 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-01-06 12:16:07 +0000 |
| commit | 330350325f79f8a229abe3ed460c814464d574e7 (patch) | |
| tree | 1c960828187df2cdcb79858fd58ef0cfde638367 /src | |
| parent | 238dba62642686b2d1354885cefa94088d4a3b2b (diff) | |
tests for verbs in uusisuomi
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Grammar/Compute.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/GF/Grammar/Compute.hs b/src/GF/Grammar/Compute.hs index e3185849c..f75a092b1 100644 --- a/src/GF/Grammar/Compute.hs +++ b/src/GF/Grammar/Compute.hs @@ -85,6 +85,7 @@ computeTermOpt rec gr = comp where (_, FV as) -> mapM (\c -> comp g (App f' c)) as >>= return . variants (FV fs, _) -> mapM (\c -> comp g (App c a')) fs >>= return . variants (Abs x b,_) -> comp (ext x a' g) b + (QC _ _,_) -> returnC $ App f' a' (Alias _ _ d, _) -> comp g (App d a') |