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

currying in paramlincat encoding

Browse Source
This commit is contained in:
aarne
2007-11-09 08:26:56 +00:00
parent 93200c65dc
commit 55c65c92ce
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Devel/GrammarToGFCC.hs
View File

@@ -176,6 +176,10 @@ mkParamLincat sgr lang cat = errVal (C.R [C.S []]) $ do
RecType lts -> do RecType lts -> do
ts <- mapM (mkPType . snd) lts ts <- mapM (mkPType . snd) lts
return $ C.R [ C.P (kks $ prt_ l) t | ((l,_),t) <- zip lts ts] return $ C.R [ C.P (kks $ prt_ l) t | ((l,_),t) <- zip lts ts]
Table (RecType lts) v -> do
ps <- mapM (mkPType . snd) lts
v' <- mkPType v
return $ foldr (\p v -> C.S [p,v]) v' ps
Table p v -> do Table p v -> do
p' <- mkPType p p' <- mkPType p
v' <- mkPType v v' <- mkPType v