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

refactoring in GF.Grammar.Macros

Browse Source
This commit is contained in:
krasimir
2009-09-21 06:56:39 +00:00
parent c2ef7ed35d
commit 40373704ff
11 changed files with 74 additions and 112 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -126,8 +126,8 @@ b2b A.Implicit = C.Implicit
mkType :: [Ident] -> A.Type -> C.Type
mkType scope t =
case GM.typeForm t of
Ok (hyps,(_,cat),args) -> let (scope',hyps') = mkContext scope hyps
in C.DTyp hyps' (i2i cat) (map (mkExp scope') args)
(hyps,(_,cat),args) -> let (scope',hyps') = mkContext scope hyps
in C.DTyp hyps' (i2i cat) (map (mkExp scope') args)
mkExp :: [Ident] -> A.Term -> C.Expr
mkExp scope t = case GM.termForm t of