GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-29 12:48:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

appForm now skips over Typed expressions

Browse Source
This commit is contained in:
kr.angelov
2014-09-17 22:02:36 +00:00
parent ff45e7dd3a
commit 4f23ed2289
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/compiler/GF/Grammar/Macros.hs
View File

@@ -117,6 +117,7 @@ termFormCnc t = case t of
appForm :: Term -> (Term, [Term]) appForm :: Term -> (Term, [Term])
appForm t = case t of appForm t = case t of
App c a -> (fun, args ++ [a]) where (fun, args) = appForm c App c a -> (fun, args ++ [a]) where (fun, args) = appForm c
Typed t _ -> appForm t
_ -> (t,[]) _ -> (t,[])
mkProdSimple :: Context -> Term -> Term mkProdSimple :: Context -> Term -> Term