diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-05-11 13:57:34 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-05-11 13:57:34 +0000 |
| commit | 8af473a6f5e04ce2aaf74916d91866f1bdb62151 (patch) | |
| tree | 0b3cc5723debf275595ac3474628d199632921c1 /src | |
| parent | eb89dc2dfee01b356c000a3f7204588cfb97cfa0 (diff) | |
param values for TInts in Canon.Look
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Canon/Look.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/GF/Canon/Look.hs b/src/GF/Canon/Look.hs index 2fc652c81..a93d4c834 100644 --- a/src/GF/Canon/Look.hs +++ b/src/GF/Canon/Look.hs @@ -118,6 +118,7 @@ allParamValues cnc ptyp = case ptyp of let (ls,tys) = unzip [(l,t) | Lbg l t <- r] tss <- mapM allPV tys return [R (map (uncurry Ass) (zip ls ts)) | ts <- combinations tss] + TInts n -> return [EInt i | i <- [0..n]] _ -> prtBad "cannot possibly find parameter values for" ptyp where allPV = allParamValues cnc |