diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-05-24 16:13:27 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-05-24 16:13:27 +0000 |
| commit | 68903bb25155978b6da22b1f6bd7069621c7dc30 (patch) | |
| tree | ff14e9dc5a13add6ae03c82f993ecdc81c6ed79c /src-3.0/GF/Infra/Modules.hs | |
| parent | 0db611a9abfb31c76933a455da946cf2194ded7b (diff) | |
started source grammar API ; used it for a first implem. of cc command
Diffstat (limited to 'src-3.0/GF/Infra/Modules.hs')
| -rw-r--r-- | src-3.0/GF/Infra/Modules.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src-3.0/GF/Infra/Modules.hs b/src-3.0/GF/Infra/Modules.hs index fe44a5fe4..971d52054 100644 --- a/src-3.0/GF/Infra/Modules.hs +++ b/src-3.0/GF/Infra/Modules.hs @@ -403,7 +403,7 @@ allResources gr = [i | (i,ModMod m) <- modules gr, isModRes m] greatestResource :: MGrammar i a -> Maybe i greatestResource gr = case allResources gr of [] -> Nothing - a -> return $ head a + a -> return $ head a ---- why not last as in Abstract? works though AR 24/5/2008 -- | all concretes for a given abstract allConcretes :: Eq i => MGrammar i a -> i -> [i] |