diff options
Diffstat (limited to 'src/GF/Grammar/AbsCompute.hs')
| -rw-r--r-- | src/GF/Grammar/AbsCompute.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |