msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

param values for TInts in Canon.Look

Browse Source
This commit is contained in:
aarne
2007-05-11 13:57:34 +00:00
parent eb89dc2dfe
commit 8af473a6f5
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/GF/Canon/Look.hs
View File

@@ -118,6 +118,7 @@ allParamValues cnc ptyp = case ptyp of
let (ls,tys) = unzip [(l,t) | Lbg l t <- r] let (ls,tys) = unzip [(l,t) | Lbg l t <- r]
tss <- mapM allPV tys tss <- mapM allPV tys
return [R (map (uncurry Ass) (zip ls ts)) | ts <- combinations tss] 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 _ -> prtBad "cannot possibly find parameter values for" ptyp
where where
allPV = allParamValues cnc allPV = allParamValues cnc