GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-06-01 14:18:55 -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 a5f81ff81c
commit e34d5b0409
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 t = case t of
App c a -> (fun, args ++ [a]) where (fun, args) = appForm c
Typed t _ -> appForm t
_ -> (t,[])
mkProdSimple :: Context -> Term -> Term