From 8af473a6f5e04ce2aaf74916d91866f1bdb62151 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 11 May 2007 13:57:34 +0000 Subject: [PATCH] param values for TInts in Canon.Look --- src/GF/Canon/Look.hs | 1 + 1 file changed, 1 insertion(+) 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