diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-03 11:59:00 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-03 11:59:00 +0000 |
| commit | c161e0e4df906185521f75aebcd26b117f8ab48f (patch) | |
| tree | 9a0440764802eea3e4de96f4c5df0709a3f4f28d /src-3.0/GF/Grammar | |
| parent | 130a75a43a38ff8613f9b9c7c2eeefc87a7701c7 (diff) | |
possible to inherit an overload group without excluding+opening
Diffstat (limited to 'src-3.0/GF/Grammar')
| -rw-r--r-- | src-3.0/GF/Grammar/Lookup.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src-3.0/GF/Grammar/Lookup.hs b/src-3.0/GF/Grammar/Lookup.hs index c8c07069b..6f4b5daa3 100644 --- a/src-3.0/GF/Grammar/Lookup.hs +++ b/src-3.0/GF/Grammar/Lookup.hs @@ -65,7 +65,7 @@ lookupResDefKind gr m c = look True m c where CncCat _ _ _ -> liftM (flip (,) 1) $ lock c defLinType CncFun (Just (cat,_)) (Yes tr) _ -> liftM (flip (,) 1) $ unlock cat tr - CncFun _ (Yes tr) _ -> liftM (flip (,) 1) $ unlock c tr + CncFun _ (Yes tr) _ -> liftM (flip (,) 1) (return tr) ---- $ unlock c tr AnyInd _ n -> look False n c ResParam _ -> return (QC m c,2) |