also lookup in concrete in cc

This commit is contained in:
aarne
2008-05-26 15:54:03 +00:00
parent d4e0caa053
commit 913067543d

View File

@@ -397,7 +397,7 @@ greatestAbstract gr = case allAbstracts gr of
-- | all resource modules
allResources :: MGrammar i a -> [i]
allResources gr = [i | (i,ModMod m) <- modules gr, isModRes m]
allResources gr = [i | (i,ModMod m) <- modules gr, isModRes m || isModCnc m]
-- | the greatest resource in dependency order
greatestResource :: MGrammar i a -> Maybe i