From 330350325f79f8a229abe3ed460c814464d574e7 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Sun, 6 Jan 2008 12:16:07 +0000
Subject: tests for verbs in uusisuomi

---
 src/GF/Grammar/Compute.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

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')
-- 
cgit v1.2.3