From c985dab565416251d9973f5b3bafe4d9d205b249 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 1 Oct 2003 12:46:44 +0000
Subject: Putting def definitions in place.

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

(limited to 'src/GF/Grammar/AbsCompute.hs')

diff --git a/src/GF/Grammar/AbsCompute.hs b/src/GF/Grammar/AbsCompute.hs
index 52a2ca678..daa13955e 100644
--- a/src/GF/Grammar/AbsCompute.hs
+++ b/src/GF/Grammar/AbsCompute.hs
@@ -47,7 +47,7 @@ computeAbsTermIn gr = compt where
           return $ mkAbs yy $ mkApp f aa'
 
   look (Q m f) = case lookupAbsDef gr m f of
-    Ok (Just (Eqs [])) -> Nothing  -- canonical
+    Ok (Just EData) -> Nothing  -- canonical --- should always be QC
     Ok md -> md
     _ -> Nothing
   look _ = Nothing
-- 
cgit v1.2.3