diff options
| author | aarne <aarne@chalmers.se> | 2011-03-03 15:10:31 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2011-03-03 15:10:31 +0000 |
| commit | f8c490328512a556626fcc705ee0191ebf522230 (patch) | |
| tree | aef2ef01adc731eaef463071b9ff991709bfc691 /src/compiler | |
| parent | f32091cd53b796a1938dd5e486dc0292c24ff4b0 (diff) | |
overloaded opers included in sorting of judgements
Diffstat (limited to 'src/compiler')
| -rw-r--r-- | src/compiler/GF/Grammar/Macros.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler/GF/Grammar/Macros.hs b/src/compiler/GF/Grammar/Macros.hs index fb9979c31..bdf1b5df4 100644 --- a/src/compiler/GF/Grammar/Macros.hs +++ b/src/compiler/GF/Grammar/Macros.hs @@ -621,7 +621,7 @@ allDependencies ism b = opty _ = [] pts i = case i of ResOper pty pt -> [pty,pt] ---- ResOverload _ tyts -> concat [[Just ty, Just tr] | (ty,tr) <- tyts] + ResOverload _ tyts -> concat [[Just ty, Just tr] | (ty,tr) <- tyts] ResParam (Just ps) _ -> [Just (L loc t) | L loc (_,cont) <- ps, (_,_,t) <- cont] CncCat pty _ _ -> [pty] CncFun _ pt _ -> [pt] ---- (Maybe (Ident,(Context,Type)) |