also lookup in concrete in cc

This commit is contained in:
aarne
2008-05-26 15:54:03 +00:00
parent a253fa2375
commit 2488caab69

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